Mercurial > hg > Members > kono > Cerium
diff example/get_segment/spe/fixpic.pl @ 473:7777761e8e02
string offset for get_segment relocation code...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 03 Oct 2009 10:49:51 +0900 |
parents | 4fa8760e18c2 |
children |
line wrap: on
line diff
--- a/example/get_segment/spe/fixpic.pl Fri Oct 02 23:20:25 2009 +0900 +++ b/example/get_segment/spe/fixpic.pl Sat Oct 03 10:49:51 2009 +0900 @@ -46,14 +46,17 @@ for(@line) { if (! /^#/) { - next if (/\.section\s+\.rodata/); - if(/\s(br)\s+([^\s]+)/||/\s(brsl|hbrr)\s+[^\s]+,\s*([^\s]+)/) { + next if (/\.section\s+\.rodata/); + if (/\s(brsl|hbrr|br)\s+[^\s]+,\s*(\d+[fb])/) { + } elsif(/\s(br)\s+([^\s]+)/||/\s(brsl|hbrr)\s+[^\s]+,\s*([^\s]+)/) { my $name = $2; if (! defined $local{$name} || defined $weak{$name} ) { s/hbrr/hbra/ || s/brsl/brasl/ || s/br/bra/ ; } + } + # } elsif(/\s(lqr)\s+(\$\d+),([^\s]+)/) { # my $name = $2; # if (! defined $local{$name} || defined $weak{$name} ) { @@ -66,7 +69,6 @@ # } else { # $_ = "\tai\t$2,\$0,$3-.\n"; # } - } } print ; }