Revision a00cb72ef2f501616afe5b97ed20aea696023aa3 authored by hudson@kremvax on 03 June 2009, 03:26:36 UTC, committed by hudson@kremvax on 03 June 2009, 03:26:36 UTC
1 parent 624bb7c
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 ...
