Revision 1eda93d78a1610f3ceb134690f48d3abc181db9e authored by hudson@kremvax on 25 July 2009, 14:51:56 UTC, committed by hudson@kremvax on 25 July 2009, 14:51:56 UTC
1 parent 86475e7
map2idc
#!/usr/bin/perl
use warnings;
use strict;
my $base = 0xFFF00000;
print <<"";
static main() {
#
# Parse the symbol dump from IDA Pro and output
# code into the .S file to define stubs for each of the
# entities.
#
while( <> )
{
my ($addr,$name) = /^\s*0001:([0-9A-Fa-f]+)\s+([^\s]+)\s*$/
or next;
$addr = hex($addr);
$addr += $base;
printf "MakeNameEx( 0x%08x, \"%s\", 0x2 );\n",
$addr,
$name,
;
}
print <<"";
}
__END__
Computing file changes ...