Adding upstream version 4.00~pre55+dfsg.
[syslinux-debian/hramrach.git] / core / lstadjust.pl
blobcec540291d33f83ea782469c7c0646d085ed26b6
1 #!/usr/bin/perl
3 # Take a NASM list and map file and make the offsets in the list file
4 # absolute. This makes debugging a lot easier.
6 # Usage:
8 # lstadjust.pl listfile mapfile outfile
11 ($listfile, $mapfile, $outfile) = @ARGV;
13 open(LST, "< $listfile\0")
14 or die "$0: cannot open: $listfile: $!\n";
15 open(MAP, "< $mapfile\0")
16 or die "$0: cannot open: $mapfile: $!\n";
17 open(OUT, "> $outfile\0")
18 or die "$0: cannot create: $outfile: $!\n";
20 %vstart = ();
22 while (defined($line = <MAP>)) {
23 if ($line =~ /^\s*([0-9]+)\s+(\S+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+2\*\*([0-9]+)/i) {
24 $vstart{$2} = hex $4;
27 close(MAP);
29 $offset = 0;
30 @ostack = ();
32 while (defined($line = <LST>)) {
33 chomp $line;
35 $source = substr($line, 40);
36 if ($source =~ /^([^;]*);/) {
37 $source = $1;
40 ($label, $op, $arg, $tail) = split(/\s+/, $source);
41 if ($op =~ /^(|\[)section$/i) {
42 $offset = $vstart{$arg};
43 } elsif ($op =~ /^(absolute|\[absolute)$/i) {
44 $offset = 0;
45 } elsif ($op =~ /^struc$/i) {
46 push(@ostack, $offset);
47 $offset = 0;
48 } elsif ($op =~ /^endstruc$/i) {
49 $offset = pop(@ostack);
52 if ($line =~ /^(\s*[0-9]+ )([0-9A-F]{8})(\s.*)$/) {
53 $line = sprintf("%s%08X%s", $1, (hex $2)+$offset, $3);
56 print OUT $line, "\n";