diff options
Diffstat (limited to 'gpxe/src/util/mergerom.pl')
-rwxr-xr-x | gpxe/src/util/mergerom.pl | 98 |
1 files changed, 0 insertions, 98 deletions
diff --git a/gpxe/src/util/mergerom.pl b/gpxe/src/util/mergerom.pl deleted file mode 100755 index f9c52502..00000000 --- a/gpxe/src/util/mergerom.pl +++ /dev/null @@ -1,98 +0,0 @@ -#!/usr/bin/perl -w -# -# Copyright (C) 2008 Michael Brown <mbrown@fensystems.co.uk>. -# -# This program is free software; you can redistribute it and/or -# modify it under the terms of the GNU General Public License as -# published by the Free Software Foundation; either version 2 of the -# License, or any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. - -use strict; -use warnings; - -use FindBin; -use lib "$FindBin::Bin"; -use Option::ROM qw ( :all ); - -sub merge_entry_points { - my $baserom_entry = \shift; - my $rom_entry = \shift; - my $offset = shift; - - if ( $$rom_entry ) { - my $old_entry = $$baserom_entry; - $$baserom_entry = ( $offset + $$rom_entry ); - $$rom_entry = $old_entry; - } -} - -my @romfiles = @ARGV; -my @roms = map { my $rom = new Option::ROM; $rom->load($_); $rom } @romfiles; - -my $baserom = shift @roms; -my $offset = $baserom->length; - -foreach my $rom ( @roms ) { - - # Update base length - $baserom->{length} += $rom->{length}; - - # Merge initialisation entry point - merge_entry_points ( $baserom->{init}, $rom->{init}, $offset ); - - # Merge BOFM header - merge_entry_points ( $baserom->{bofm_header}, $rom->{bofm_header}, $offset ); - - # Update PCI header, if present in both - my $baserom_pci = $baserom->pci_header; - my $rom_pci = $rom->pci_header; - if ( $baserom_pci && $rom_pci ) { - - # Update PCI lengths - $baserom_pci->{image_length} += $rom_pci->{image_length}; - if ( exists $baserom_pci->{runtime_length} ) { - if ( exists $rom_pci->{runtime_length} ) { - $baserom_pci->{runtime_length} += $rom_pci->{runtime_length}; - } else { - $baserom_pci->{runtime_length} += $rom_pci->{image_length}; - } - } - - # Merge CLP entry point - if ( exists ( $baserom_pci->{clp_entry} ) && - exists ( $rom_pci->{clp_entry} ) ) { - merge_entry_points ( $baserom_pci->{clp_entry}, $rom_pci->{clp_entry}, - $offset ); - } - } - - # Update PnP header, if present in both - my $baserom_pnp = $baserom->pnp_header; - my $rom_pnp = $rom->pnp_header; - if ( $baserom_pnp && $rom_pnp ) { - merge_entry_points ( $baserom_pnp->{bcv}, $rom_pnp->{bcv}, $offset ); - merge_entry_points ( $baserom_pnp->{bdv}, $rom_pnp->{bdv}, $offset ); - merge_entry_points ( $baserom_pnp->{bev}, $rom_pnp->{bev}, $offset ); - } - - # Fix checksum for this ROM segment - $rom->fix_checksum(); - - $offset += $rom->length; -} - -$baserom->pnp_header->fix_checksum() if $baserom->pnp_header; -$baserom->fix_checksum(); -$baserom->save ( "-" ); -foreach my $rom ( @roms ) { - $rom->save ( "-" ); -} |