1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
#!/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 ( "-" );
}
|
