23bca8f9d8
Add support for manipulating the jump instruction that forms the option ROM initialisation entry point, so that mergerom.pl can treat it just like other entry points. Add support for merging the initialisation entry point (and IBM BOFM table) to mergerom.pl; this is another slightly icky but unfortunately necessary GPL vs. NDA workaround. When mergerom.pl replaces an entry point in the original ROM, it now fills in the corresponding entry point in the merged ROM with the original value; this allows (for example) a merged initialisation entry point to do some processing and then jump back to the original entry point.
99 lines
2.8 KiB
Perl
Executable File
99 lines
2.8 KiB
Perl
Executable File
#!/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 ( "-" );
|
|
}
|