[efi] Do not raise TPL within EFI_DRIVER_BINDING_PROTOCOL.Supported()
[ipxe.git] / src / util / catrom.pl
1 #!/usr/bin/perl -w
2
3 use warnings;
4 use strict;
5
6 use FindBin;
7 use lib "$FindBin::Bin";
8 use Option::ROM qw ( :all );
9
10 my @romfiles = @ARGV
11 or die "Usage: $0 rom-file-1 rom-file-2 ... > multi-rom-file\n";
12
13 while ( my $romfile = shift @romfiles ) {
14
15 # Read ROM file
16 my $rom = new Option::ROM;
17 $rom->load ( $romfile );
18
19 # Tag final image as non-final in all except the final ROM
20 if ( @romfiles ) {
21 my $image = $rom;
22 $image = $image->next_image() while $image->next_image();
23 $image->pci_header->{last_image} &= ~PCI_LAST_IMAGE;
24 $image->fix_checksum();
25 }
26
27 # Write ROM file to STDOUT
28 $rom->save ( "-" );
29 }