changeset 562:b7db5cb2e2c1

tweak
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Tue, 19 Nov 2019 15:21:22 +0900
parents aa4bef31cbfd
children 928d01b70e62
files src/parallel_execution/trans_impl.pl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/parallel_execution/trans_impl.pl	Tue Nov 19 13:37:37 2019 +0900
+++ b/src/parallel_execution/trans_impl.pl	Tue Nov 19 15:21:22 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}/;