tools/mapFileLookUpWin32.pl

   1 die "usage: mapFileLookUpWin32.pl file.map [[address | \@responseFile]...]\n" if (@ARGV < 2);
   2
   3 $mapFile = shift(@ARGV);
   4 open(MAP, $mapFile);
   5
   6         while (@ARGV)
   7         {
   8                 $find = shift(@ARGV);
   9
  10                 # handle response files that are call stacks
  11                 if ($find =~ /^\@/)
  12                 {
  13                         $find =~ s/^.//;
  14
  15                         # search the file for IP addresses to look up
  16                         undef @find;
  17                         open(FIND, $find);
  18                                 while (<FIND>)
  19                                 {
  20                                         chomp;
  21                                         s/^.*unknown\(// && s/\).*//;
  22                                         push(@find, $_) if ($_ ne "");
  23                                 }
  24                         close(FIND);
  25
  26                         # insert all the found entries at the beginning of @ARGV
  27                         splice(@ARGV, 0, 0, @find);
  28                         $find = shift(@ARGV);
  29                 }
  30
  31                 $find = hex($find);
  32
  33                 # go to the beginning and skip past some cruft
  34                 seek(MAP, 0, 0);
  35                 while (<MAP>)
  36                 {
  37                         last if (/^\s+Address/)
  38                 }
  39
  40                 # search for the symbol containg this address
  41                 $found = 0;
  42                 $lastAddress = 0;
  43                 $lastSymbol = "";
  44                 while (<MAP>)
  45                 {
  46                         chomp;
  47                         ($seg, $symbol, $address, $junk) = split;
  48                         $address = hex($address);
  49
  50                         if ($lastAddress <= $find && $address > $find)
  51                         {
  52                                 printf "%08x: %08x %08x %s\n", $find, $lastAddress, $address, $lastSymbol;
  53                                 $found = 1;
  54                                 last;
  55                         }
  56
  57                         $lastAddress = $address;
  58                         $lastSymbol = $symbol;
  59                 }
  60                 printf "%08x: not found\n", $find if ($found == 0);
  61
  62         }
  63
  64 close(MAP);