mksym.pl

   1 #!/usr/bin/perl
   2 #
   3 # Parse link map and generate symbols.txt to use with VProbes.
   4
   5 use strict;
   6 use warnings;
   7
   8 my $map = 'link.map';
   9 die "Missing map file\n" unless -f $map;
  10 open MAP, "<$map" or die "Unable to open $map: $!";
  11
  12 my %syms = ();
  13
  14 while (my $line = <MAP>) {
  15    if ($line =~ m/^\s+0x([0-9a-f]+)\s+(\w+)\s*$/) {
  16       $syms{$1} = $2;
  17 #      print "$1 T $2\n";
  18    }
  19 }
  20
  21 close MAP;
  22
  23 open SYMS, ">symbols.txt" or die "Unable to open symbols.txt: $!";
  24
  25 foreach my $addr (sort(keys(%syms))) {
  26    my $sym = $syms{$addr};
  27    print SYMS "$addr T $sym\n";
  28 }
  29
  30 close SYMS;