changeset 658:9f8527f5ab9d

...
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 17 Aug 2020 20:50:30 +0900
parents 3e3f282d62e4
children 755c2dca04a1
files .hgignore src/parallel_execution/examples/pop_and_push/StackTestImpl.cbc src/parallel_execution/generate_context.pl src/parallel_execution/generate_stub.pl
diffstat 4 files changed, 15 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/.hgignore	Mon Aug 17 20:44:34 2020 +0900
+++ b/.hgignore	Mon Aug 17 20:50:30 2020 +0900
@@ -21,3 +21,4 @@
 src/parallel_execution/context.h
 
 .vscode
+*ninja*
--- a/src/parallel_execution/examples/pop_and_push/StackTestImpl.cbc	Mon Aug 17 20:44:34 2020 +0900
+++ b/src/parallel_execution/examples/pop_and_push/StackTestImpl.cbc	Mon Aug 17 20:50:30 2020 +0900
@@ -37,6 +37,14 @@
   goto stack->pop2(pop2Test1_StackTestImpl);
 }
 
+__code pop2Test3_StackTestImpl(struct StackTestImpl* stackTest, struct Stack* stack, __code next(...)) {
+  String* str = NEW(String);
+  str->size = 200;
+  String* str1 = NEW(String);
+  str1->size = 300;
+  goto pop2Test1_StackTestImpl(stackTest, (union Data*)str, (union Data*)str1);
+}
+
 
 __code pop2Test1_StackTestImpl(struct StackTestImpl* stackTest, union Data* data, union Data* data1, struct Stack* stack, __code next(...)) {
     String* str = (String*)data;
--- a/src/parallel_execution/generate_context.pl	Mon Aug 17 20:44:34 2020 +0900
+++ b/src/parallel_execution/generate_context.pl	Mon Aug 17 20:50:30 2020 +0900
@@ -91,13 +91,10 @@
 
 {
   use FindBin;
+  use File::Spec;
   use lib "$FindBin::Bin/lib";
 
-  use File::Spec;
-  use Cwd 'getcwd';
-
   use Gears::Context;
-  use Getopt::Std;
 
   my $output     = $opt_w ? "context.h" : "stdout";
 
--- a/src/parallel_execution/generate_stub.pl	Mon Aug 17 20:44:34 2020 +0900
+++ b/src/parallel_execution/generate_stub.pl	Mon Aug 17 20:50:30 2020 +0900
@@ -3,6 +3,9 @@
 use strict;
 use Getopt::Long;
 use File::Path qw(make_path);
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
 
 # interface.h
 # typedef struct Worker {
@@ -47,8 +50,8 @@
 
 for my $fn (@ARGV) {
     next if ($fn !~ /\.cbc$/);
-    &getDataGear($fn);
-    &generateDataGear($fn);
+    getDataGear($fn);
+    generateDataGear($fn);
 }
 
 my %var;