diff src/parallel_execution/generate_stub.pl @ 424:3c6af75b13d4

fix RedBlackTree.cbc
author mir3636
date Fri, 06 Oct 2017 18:00:28 +0900
parents d839c9cb7c83
children 481fce540daf
line wrap: on
line diff
--- a/src/parallel_execution/generate_stub.pl	Fri Oct 06 15:42:21 2017 +0900
+++ b/src/parallel_execution/generate_stub.pl	Fri Oct 06 18:00:28 2017 +0900
@@ -481,7 +481,7 @@
                 # convert it to the meta call form with two arugments, that is context and enum Code
                 my $prev = $1;
                 my $next = $2;
-                my @args = split(/,/,$3);
+                my @args = split(/, /,$3);
                 my $v = 0;
                 for my $n ( @{$dataGearVar{$codeGearName}} ) {
                     # continuation arguments 
@@ -508,6 +508,12 @@
                     print $fd "${prev}taskManager->next1 = C_$next;\n";
                     print $fd "${prev}goto meta(context, C_$next);\n";
                     next;
+                } elsif ($next eq "meta") {
+                    print $fd $_;
+                    next;
+                } else {
+                    print $fd "${prev}goto meta(context, C_$next);\n";
+                    next;
                 }
             } elsif(/^}/) {
                 $inParGoto = 0;