changeset 103:bc9ce1394900

tweak
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 19 Nov 2019 15:21:32 +0900
parents b84aac4ab529
children 9bfc4fbb5502
files src/gearsTools/trans_impl.pl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/gearsTools/trans_impl.pl	Tue Nov 19 15:08:20 2019 +0900
+++ b/src/gearsTools/trans_impl.pl	Tue Nov 19 15:21:32 2019 +0900
@@ -102,7 +102,7 @@
   for my $code_ir (@{$inter_ir->{codes}}) {
     my $data_gears = $code_ir->[1];
     $data_gears =~ s/Impl/$impl/g;
-    while ($data_gears =~ /Type\*\s*(\w+),/) {
+    while ($data_gears =~ /Type\*\s*(\w+),/g) {
       my $target = $1;
       if (exists $data_gear_types->{$target}){
         $data_gears =~ s/Type\*/$data_gear_types->{$target}/;