diff options
author | Yang Zhang <yang.z.zhang@intel.com> | 2015-08-28 09:58:54 +0800 |
---|---|---|
committer | Yang Zhang <yang.z.zhang@intel.com> | 2015-09-01 12:44:00 +0800 |
commit | e44e3482bdb4d0ebde2d8b41830ac2cdb07948fb (patch) | |
tree | 66b09f592c55df2878107a468a91d21506104d3f /qemu/roms/ipxe/src/util/catrom.pl | |
parent | 9ca8dbcc65cfc63d6f5ef3312a33184e1d726e00 (diff) |
Add qemu 2.4.0
Change-Id: Ic99cbad4b61f8b127b7dc74d04576c0bcbaaf4f5
Signed-off-by: Yang Zhang <yang.z.zhang@intel.com>
Diffstat (limited to 'qemu/roms/ipxe/src/util/catrom.pl')
-rwxr-xr-x | qemu/roms/ipxe/src/util/catrom.pl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/qemu/roms/ipxe/src/util/catrom.pl b/qemu/roms/ipxe/src/util/catrom.pl new file mode 100755 index 000000000..da99d7b97 --- /dev/null +++ b/qemu/roms/ipxe/src/util/catrom.pl @@ -0,0 +1,29 @@ +#!/usr/bin/perl -w + +use warnings; +use strict; + +use FindBin; +use lib "$FindBin::Bin"; +use Option::ROM qw ( :all ); + +my @romfiles = @ARGV + or die "Usage: $0 rom-file-1 rom-file-2 ... > multi-rom-file\n"; + +while ( my $romfile = shift @romfiles ) { + + # Read ROM file + my $rom = new Option::ROM; + $rom->load ( $romfile ); + + # Tag final image as non-final in all except the final ROM + if ( @romfiles ) { + my $image = $rom; + $image = $image->next_image() while $image->next_image(); + $image->pci_header->{last_image} &= ~PCI_LAST_IMAGE; + $image->fix_checksum(); + } + + # Write ROM file to STDOUT + $rom->save ( "-" ); +} |