Subversion Repositories Spectranet

[/] [branches/] [gnubinutils/] [buildtools/] [map2sym] - Diff between revs 383 and 384

Show entire file | Details | Blame | View Log

Rev 383 Rev 384
Line 10... Line 10...
open FHND, "< $mapfile" or die("Unable to open $mapfile: $!");
open FHND, "< $mapfile" or die("Unable to open $mapfile: $!");
open SYMHND, "> $outputfile" or die("Unable to write to $outputfile: $!");
open SYMHND, "> $outputfile" or die("Unable to write to $outputfile: $!");
while(my $line=<FHND>)
while(my $line=<FHND>)
{
{
        chomp $line;
        chomp $line;
        if($line =~ /^\s{1,}0x[a-zA-Z0-9]{1,}\s{1,}F_/)
        if($line =~ /^\s{1,}0x[a-zA-Z0-9]{1,}\s{1,}(F|J)_/)
        {
        {
                $line=~s/^\s{1,}//g;
                $line=~s/^\s{1,}//g;
                my ($addr, $symbol)=split(/\s{1,}/, $line, 2);
                my ($addr, $symbol)=split(/\s{1,}/, $line, 2);
                print SYMHND "$symbol equ $addr\n";
                print SYMHND "$symbol equ $addr\n";
        }
        }