Mercurial > hg > Members > kono > Cerium

comparison example/get_segment/spe/fixpic.pl @ 466:4fa8760e18c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
prohibit global variable in Task....
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 01 Oct 2009 17:33:58 +0900
parents 40af9fc1d428
children 7777761e8e02
comparison
equal deleted inserted replaced
465:40af9fc1d428 466:4fa8760e18c2
52 if (! defined $local{$name} || defined $weak{$name} ) { 52 if (! defined $local{$name} || defined $weak{$name} ) {
53 s/hbrr/hbra/ || 53 s/hbrr/hbra/ ||
54 s/brsl/brasl/ || 54 s/brsl/brasl/ ||
55 s/br/bra/ ; 55 s/br/bra/ ;
56 } 56 }
57 } elsif(/\s(lqr)\s+(\$\d+),([^\s]+)/) { 57 # } elsif(/\s(lqr)\s+(\$\d+),([^\s]+)/) {
58 my $name = $2; 58 # my $name = $2;
59 if (! defined $local{$name} || defined $weak{$name} ) { 59 # if (! defined $local{$name} || defined $weak{$name} ) {
60 # s/lqr/lqd/; 60 # s/lqr/lqd/;
61 } 61 # }
62 } elsif(/\s(ila)\s+(\$\d+),([^\s]+)/) { 62 # } elsif(/\s(ila)\s+(\$\d+),([^\s]+)/) {
63 my $name = $3; 63 # my $name = $3;
64 if (! defined $local{$name} || defined $weak{$name} ) { 64 # if (! defined $local{$name} || defined $weak{$name} ) {
65 $_ = $_; 65 # $_ = $_;
66 } else { 66 # } else {
67 $_ = "\tai\t$2,\$0,$3-.\n"; 67 # $_ = "\tai\t$2,\$0,$3-.\n";
68 } 68 # }
69 } 69 }
70 } 70 }
71 print ; 71 print ;
72 } 72 }
73 73