Mercurial > hg > Gears > Gears
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;