[build] Replace obsolete makerom.pl with quick script using Option::ROM
authorMichael Brown <mcb30@ipxe.org>
Sun, 25 Apr 2010 01:54:12 +0000 (02:54 +0100)
committerStefan Hajnoczi <stefanha@gmail.com>
Wed, 7 Jul 2010 19:14:37 +0000 (20:14 +0100)
The only remaining useful function of makerom.pl is to correct the ROM
and PnP checksums; the PCI IDs are set at link time, and padding is
performed using padimg.pl.

Option::ROM already provides a facility for correcting the checksums,
so we may as well just use this instead.

Signed-off-by: Michael Brown <mcb30@ipxe.org>
Signed-off-by: Stefan Hajnoczi <stefanha@gmail.com>
src/Makefile
src/Makefile.housekeeping
src/arch/i386/Makefile.pcbios
src/util/fixrom.pl [new file with mode: 0755]
src/util/makerom.pl [deleted file]

index d71c59a..059c558 100644 (file)
@@ -32,7 +32,7 @@ OBJCOPY               := $(CROSS_COMPILE)objcopy
 NM             := $(CROSS_COMPILE)nm
 OBJDUMP                := $(CROSS_COMPILE)objdump
 PARSEROM       := $(PERL) ./util/parserom.pl
-MAKEROM                := $(PERL) ./util/makerom.pl
+FIXROM         := $(PERL) ./util/fixrom.pl
 SYMCHECK       := $(PERL) ./util/symcheck.pl
 SORTOBJDUMP    := $(PERL) ./util/sortobjdump.pl
 PADIMG         := $(PERL) ./util/padimg.pl
index fc5402e..0de3fc2 100644 (file)
@@ -616,15 +616,6 @@ TGT_LD_FLAGS       = $(foreach SYM,$(TGT_LD_PREFIX) $(TGT_LD_DRIVERS) obj_config,\
                  $(patsubst %,--defsym %,$(TGT_LD_IDS)) \
                  $(TGT_LD_FLAGS_PRE)
 
-# Calculate makerom flags for the specific target
-# (e.g. "bin/dfe538--prism2_pci.zrom.tmp") and derive the variables:
-#
-# TGT_MAKEROM_FLAGS : target-specific flags for makerom (e.g.
-#                    "-p 0x1186,0x1300")
-#
-TGT_MAKEROM_FLAGS = $(strip $(MAKEROM_FLAGS_$(TGT_ROM_NAME)) \
-       $(if $(TGT_PCI_VENDOR),$(strip -p $(TGT_PCI_VENDOR),$(TGT_PCI_DEVICE))))
-
 # Calculate list of debugging versions of objects to be included in
 # the target.
 #
@@ -655,8 +646,6 @@ $(BIN)/%.info :
        @$(ECHO)
        @$(ECHO) 'LD target flags      : $(TGT_LD_FLAGS)'
        @$(ECHO)
-       @$(ECHO) 'makerom target flags : $(TGT_MAKEROM_FLAGS)'
-       @$(ECHO)
        @$(ECHO) 'Debugging objects    : $(DEBUG_OBJS)'
        @$(ECHO) 'Replaced objects     : $(DEBUG_ORIG_OBJS)'
 
@@ -865,19 +854,6 @@ $(BIN)/etherboot.% : $(BIN)/gpxe.%
 
 endif # defined(BIN)
 
-###############################################################################
-#
-# Rules for finalising files.  TGT_MAKEROM_FLAGS is defined as part of
-# the automatic build system and varies by target; it includes the
-# "-p 0x1234,0x5678" string to set the PCI IDs.
-#
-FINALISE_rom   = $(MAKEROM) $(MAKEROM_FLAGS) $(TGT_MAKEROM_FLAGS) \
-                 -i$(IDENT) -s 0 $@
-
-# Some ROMs require specific flags to be passed to makerom.pl
-#
-MAKEROM_FLAGS_3c503 = -3
-
 ###############################################################################
 #
 # The compression utilities
index e3c3387..1004205 100644 (file)
@@ -26,6 +26,10 @@ PAD_rom              = $(PADIMG) --blksize=512 --byte=0xff $@
 PAD_dsk                = $(PADIMG) --blksize=512 $@
 PAD_hd         = $(PADIMG) --blksize=32768 $@
 
+# Finalisation rules
+#
+FINALISE_rom   = $(FIXROM) $@
+
 # rule to make a non-emulation ISO boot image
 NON_AUTO_MEDIA += iso
 %iso:  %lkrn util/geniso
diff --git a/src/util/fixrom.pl b/src/util/fixrom.pl
new file mode 100755 (executable)
index 0000000..c3a31f4
--- /dev/null
@@ -0,0 +1,34 @@
+#!/usr/bin/perl -w
+#
+# Copyright (C) 2010 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 );
+
+my @romfiles = @ARGV;
+
+foreach my $romfile ( @romfiles ) {
+  my $rom = new Option::ROM;
+  $rom->load ( $romfile );
+  $rom->pnp_header->fix_checksum() if $rom->pnp_header;
+  $rom->fix_checksum();
+  $rom->save ( $romfile );
+}
diff --git a/src/util/makerom.pl b/src/util/makerom.pl
deleted file mode 100755 (executable)
index aed3a56..0000000
+++ /dev/null
@@ -1,226 +0,0 @@
-#!/usr/bin/perl -w
-
-use Getopt::Std;
-
-use constant MINROMSIZE => 8192;
-use constant MAXROMSIZE => 262144;
-
-use constant PCI_PTR_LOC => 0x18;      # from beginning of ROM
-use constant PCI_HDR_SIZE => 0x18;
-use constant PNP_PTR_LOC => 0x1a;      # from beginning of ROM
-use constant PNP_HDR_SIZE => 0x20;
-use constant PNP_CHKSUM_OFF => 0x9;    # bytes from beginning of PnP header
-use constant PNP_DEVICE_OFF => 0x10;   # bytes from beginning of PnP header
-use constant PCI_VEND_ID_OFF => 0x4;   # bytes from beginning of PCI header
-use constant PCI_DEV_ID_OFF => 0x6;    # bytes from beginning of PCI header
-use constant PCI_SIZE_OFF => 0x10;     # bytes from beginning of PCI header
-
-use constant UNDI_PTR_LOC => 0x16;     # from beginning of ROM
-use constant UNDI_HDR_SIZE => 0x16;
-use constant UNDI_CHKSUM_OFF => 0x05;
-
-use strict;
-
-use vars qw(%opts);
-
-use bytes;
-
-sub getromsize ($) {
-       my ($romref) = @_;
-       my $i;
-
-       print STDERR "BIOS extension ROM Image did not start with 0x55 0xAA\n"
-               if (substr($$romref, 0, 2) ne "\x55\xaa");
-       my $size = ord(substr($$romref, 2, 1)) * 512;
-       for ($i = MINROMSIZE; $i < MAXROMSIZE and $i < $size; $i *= 2) { }
-       print STDERR "$size is a strange size for a boot ROM\n"
-               if ($size > 0 and $i > $size);
-       return ($size);
-}
-
-sub addident ($) {
-       my ($romref) = @_;
-
-       return (0) unless (my $s = $opts{'i'});
-       # include the terminating NUL byte too
-       $s .= "\x00";
-       my $len = length($s);
-       # Put the identifier in only if the space is blank
-       my $pos = length($$romref) - $len - 2;
-       return (0) if (substr($$romref, $pos, $len) ne ("\xFF" x $len));
-       substr($$romref, $pos, $len) = $s;
-       return ($pos);
-}
-
-sub pcipnpheaders ($$) {
-       my ($romref, $identoffset) = @_;
-       my ($pci_hdr_offset, $pnp_hdr_offset);
-
-       $pci_hdr_offset = unpack('v', substr($$romref, PCI_PTR_LOC, 2));
-       $pnp_hdr_offset = unpack('v', substr($$romref, PNP_PTR_LOC, 2));
-       # Sanity checks
-       if ($pci_hdr_offset < PCI_PTR_LOC + 2
-               or $pci_hdr_offset > length($$romref) - PCI_HDR_SIZE
-               or $pnp_hdr_offset < PNP_PTR_LOC + 2
-               or $pnp_hdr_offset > length($$romref) - PNP_HDR_SIZE
-               or substr($$romref, $pci_hdr_offset, 4) ne 'PCIR'
-               or substr($$romref, $pnp_hdr_offset, 4) ne '$PnP') {
-               $pci_hdr_offset = $pnp_hdr_offset = 0;
-       } else {
-               printf "PCI header at %#x and PnP header at %#x\n",
-                       $pci_hdr_offset, $pnp_hdr_offset if $opts{'v'};
-       }
-       if ($pci_hdr_offset > 0) {
-               my ($pci_vendor_id, $pci_device_id);
-               # if no -p option, just report what's there
-               if (!defined($opts{'p'})) {
-                       $pci_vendor_id = unpack('v', substr($$romref, $pci_hdr_offset+PCI_VEND_ID_OFF, 2));
-                       $pci_device_id = unpack('v', substr($$romref, $pci_hdr_offset+PCI_DEV_ID_OFF, 2));
-                       printf "PCI Vendor ID %#x Device ID %#x\n",
-                               $pci_vendor_id, $pci_device_id;
-               } else {
-                       substr($$romref, $pci_hdr_offset + PCI_SIZE_OFF, 2)
-                               = pack('v', length($$romref) / 512);
-                       ($pci_vendor_id, $pci_device_id) = split(/,/, $opts{'p'});
-                       substr($$romref, $pci_hdr_offset+PCI_VEND_ID_OFF, 2)
-                               = pack('v', oct($pci_vendor_id)) if ($pci_vendor_id);
-                       substr($$romref, $pci_hdr_offset+PCI_DEV_ID_OFF, 2)
-                               = pack('v', oct($pci_device_id)) if ($pci_device_id);
-               }
-       }
-       if ($pnp_hdr_offset > 0) {
-               if (defined($identoffset)) {
-                       # Point to device id string at end of ROM image
-                       substr($$romref, $pnp_hdr_offset+PNP_DEVICE_OFF, 2)
-                               = pack('v', $identoffset);
-               }
-               substr($$romref, $pnp_hdr_offset+PNP_CHKSUM_OFF, 1) = "\x00";
-               my $sum = unpack('%8C*', substr($$romref, $pnp_hdr_offset,
-                       PNP_HDR_SIZE));
-               substr($$romref, $pnp_hdr_offset+PNP_CHKSUM_OFF, 1) = chr(256 - $sum);
-       }
-}
-
-sub undiheaders ($) {
-       my ($romref) = @_;
-       my ($undi_hdr_offset);
-
-       $undi_hdr_offset = unpack('v', substr($$romref, UNDI_PTR_LOC, 2));
-       # Sanity checks
-       if ($undi_hdr_offset < UNDI_PTR_LOC + 2
-               or $undi_hdr_offset > length($$romref) - UNDI_HDR_SIZE
-               or substr($$romref, $undi_hdr_offset, 4) ne 'UNDI') {
-               $undi_hdr_offset = 0;
-       } else {
-               printf "UNDI header at %#x\n", $undi_hdr_offset if $opts{'v'};
-       }
-       if ($undi_hdr_offset > 0) {
-               substr($$romref, $undi_hdr_offset+UNDI_CHKSUM_OFF, 1) = "\x00";
-               my $sum = unpack('%8C*', substr($$romref, $undi_hdr_offset,
-                       UNDI_HDR_SIZE));
-               substr($$romref, $undi_hdr_offset+UNDI_CHKSUM_OFF, 1) = chr(256 - $sum);
-       }
-}
-
-sub writerom ($$) {
-       my ($filename, $romref) = @_;
-
-       open(R, ">$filename") or die "$filename: $!\n";
-       print R $$romref;
-       close(R);
-}
-
-sub checksum ($) {
-       my ($romref) = @_;
-
-       substr($$romref, 6, 1) = "\x00";
-       my $sum = unpack('%8C*', $$romref);
-       substr($$romref, 6, 1) = chr(256 - $sum);
-       # Double check
-       $sum = unpack('%8C*', $$romref);
-       if ($sum != 0) {
-               print "Checksum fails\n"
-       } elsif ($opts{'v'}) {
-               print "Checksum ok\n";
-       }
-}
-
-sub makerom () {
-       my ($rom, $romsize);
-
-       getopts('3xi:p:s:v', \%opts);
-       $ARGV[0] or die "Usage: $0 [-s romsize] [-i ident] [-p vendorid,deviceid] [-x] [-3] rom-file\n";
-       open(R, $ARGV[0]) or die "$ARGV[0]: $!\n";
-       # Read in the whole ROM in one gulp
-       my $filesize = read(R, $rom, MAXROMSIZE+1);
-       close(R);
-       defined($filesize) and $filesize >= 3 or die "Cannot get first 3 bytes of file\n";
-       print "$filesize bytes read\n" if $opts{'v'};
-       # If PXE image, just fill the length field and write it out
-       if ($opts{'x'}) {
-               substr($rom, 2, 1) = chr((length($rom) + 511) / 512);
-               writerom($ARGV[0], \$rom);
-               return;
-       }
-       # Size specified with -s overrides value in 3rd byte in image
-       # -s 0 means round up to next 512 byte block
-       if (defined($opts{'s'})) {
-               if (($romsize = oct($opts{'s'})) <= 0) {
-                       # NB: This roundup trick only works on powers of 2
-                       $romsize = ($filesize + 511) & ~511
-               }
-       } else {
-               # Shrink romsize down to the smallest power of two that will do
-               for ($romsize = MAXROMSIZE;
-                    $romsize > MINROMSIZE and $romsize >= 2*$filesize;
-                    $romsize /= 2) { }
-       }
-       if ($filesize > $romsize) {
-               print STDERR "ROM size of $romsize not big enough for data, ";
-               # NB: This roundup trick only works on powers of 2
-               $romsize = ($filesize + 511) & ~511;
-               print "will use $romsize instead\n"
-       }
-       # Pad with 0xFF to $romsize
-       $rom .= "\xFF" x ($romsize - length($rom));
-       if ($romsize >= 128 * 1024) {
-               print "Warning: ROM size exceeds extension BIOS limit\n";
-       }
-       substr($rom, 2, 1) = chr(($romsize / 512) % 256);
-       print "ROM size is $romsize\n" if $opts{'v'};
-       # set the product string only if we don't have one yet
-       my $pnp_hdr_offset = unpack('v', substr($rom, PNP_PTR_LOC, 2));
-       my $identoffset = substr($rom, $pnp_hdr_offset+PNP_DEVICE_OFF, 2) eq "\0\0" ? addident(\$rom) : undef;
-       pcipnpheaders(\$rom, $identoffset);
-       undiheaders(\$rom);
-       # 3c503 requires last two bytes to be 0x80
-       substr($rom, MINROMSIZE-2, 2) = "\x80\x80"
-               if ($opts{'3'} and $romsize == MINROMSIZE);
-       checksum(\$rom);
-       writerom($ARGV[0], \$rom);
-}
-
-sub modrom () {
-       my ($rom);
-
-       getopts('p:v', \%opts);
-       $ARGV[0] or die "Usage: $0 [-p vendorid,deviceid] rom-file\n";
-       open(R, $ARGV[0]) or die "$ARGV[0]: $!\n";
-       # Read in the whole ROM in one gulp
-       my $filesize = read(R, $rom, MAXROMSIZE+1);
-       close(R);
-       defined($filesize) and $filesize >= 3 or die "Cannot get first 3 bytes of file\n";
-       print "$filesize bytes read\n" if $opts{'v'};
-       pcipnpheaders(\$rom, undef);
-       undiheaders(\$rom);
-       checksum(\$rom);
-       writerom($ARGV[0], \$rom);
-}
-
-# Main routine. See how we were called and behave accordingly
-if ($0 =~ m:modrom(\.pl)?$:) {
-       modrom();
-} else {
-       makerom();
-}
-exit(0);