File: symboliclog.pl

package info (click to toggle)
em8300 0.16.0-2
  • links: PTS
  • area: contrib
  • in suites: etch, etch-m68k
  • size: 2,024 kB
  • ctags: 1,492
  • sloc: ansic: 11,554; sh: 3,849; perl: 1,353; makefile: 429
file content (27 lines) | stat: -rwxr-xr-x 470 bytes parent folder | download | duplicates (2) 
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
 
#!/usr/bin/perl

open(PB, "microcode_info.pl <$ARGV[0] |");
while (<PB>) {
  if (/^Name:/) {
    chomp;
    s/Name: //;
    $symboltable{hex($b) + 0x1000} = $_;
  }
  s/Offset: 0x([0-9a-f]+)/$b = $1/e;
}
close PB;

while (<STDIN>) {
  s/register 0x([0-9a-f]+)/
    {
     if ($symboltable{hex($1)}) {
       "register " . $symboltable{hex($1)} . " (0x$1)";
     }
     else {
       "register 0x$1";
     }
    }
  /e;
  #if(!/register 0x1f4[de]/) { print; }
  print;
}