Mercurial > hg > Members > kono > Cerium

changeset 474:077845279741

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 03 Oct 2009 10:50:16 +0900
parents 7777761e8e02
children e083c4ff91c1
files bin/cell_fixpic.pl
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/bin/cell_fixpic.pl	Sat Oct 03 10:49:51 2009 +0900
+++ b/bin/cell_fixpic.pl	Sat Oct 03 10:50:16 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 ;
 }