Mercurial > hg > Gears > GearsAgda
changeset 331:69cdda536487
Merge
| author | Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Tue, 18 Apr 2017 18:59:36 +0900 |
| parents | d9887056ae5b (diff) a258505bf9fd (current diff) |
| children | e46d9910640b |
| files | src/parallel_execution/CUDAtwice.cbc src/parallel_execution/CUDAtwice.cu |
| diffstat | 2 files changed, 25 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/parallel_execution/Todo Tue Apr 18 18:58:16 2017 +0900 +++ b/src/parallel_execution/Todo Tue Apr 18 18:59:36 2017 +0900 @@ -1,3 +1,26 @@ +Fri Apr 14 18:44:09 JST 2017 + struct B { + A a; + ..... + } + struct A { + __code init(..., __code next(A a, ...)); + } + par goto A->init(a); + // meta level + task->code = C_init_A; + task->data[idg] = ...; + task->data[idg + 1] = ...; + task->data[odg] = ...; + task->next = C_writeToa; + goto meta(context, context->TaskManager->spawn) + + // lambda version? + par goto A->init(\A -> a = A) + + // meta level + par goto A->init(next = \A -> a = A) + Wed Mar 1 18:25:36 JST 2017 parallel_executtion/test/ を .cbc に書き直す
--- a/src/parallel_execution/generate_stub.pl Tue Apr 18 18:58:16 2017 +0900 +++ b/src/parallel_execution/generate_stub.pl Tue Apr 18 18:59:36 2017 +0900 @@ -248,6 +248,8 @@ # generate CodeGear header with new arguments print $fd "__code $codeGearName($newArgs)$tail\n"; if ($outputVar{$codeGearName} ne "") { + # output data var can be use before write + # it should be initialze by gearef print $fd $outputVar{$codeGearName}; } next;