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 ;
 }