# HG changeset patch
# User anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
# Date 1574144492 -32400
# Node ID bc9ce139490069462202f08c1afa897220bff3b8
# Parent  b84aac4ab52908bc70f60acee6b0087e29ea6694
tweak

diff -r b84aac4ab529 -r bc9ce1394900 src/gearsTools/trans_impl.pl
--- 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}/;