Members/Moririn: src/parallel_execution/examples/calc.cbc annotate

annotate src/parallel_execution/examples/calc.cbc @ 345:2da00c034fbc

Add waitTask for Add_CodeGear

author	Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp>
date	Mon, 29 May 2017 20:55:07 +0900
parents	b8be1d51f002
children	9f8a87389b68

rev	line source
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	1 #include <stdio.h>
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	2 #include <string.h>
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	3 #include <stdlib.h>
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	4 #include <unistd.h>
330 a258505bf9fd Add assert calc examples Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 328 diff changeset	5 #include <assert.h>
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	6
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	7 #include "../../context.h"
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	8
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	9 int cpu_num = 1;
328 48c2b5bcab79 Fix calc example Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 327 diff changeset	10 int length = 100;
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	11 int gpu_num = 0;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	12 int CPU_ANY = -1;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	13 int CPU_CUDA = -1;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	14
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	15 void print_queue(struct Element* element) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	16 while (element) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	17 printf("%p\n", ((struct Task *)(element->data)));
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	18 element = element->next;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	19 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	20 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	21
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	22 void print_tree(struct Node* node) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	23 if (node != 0) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	24 printf("%d\n", node->value->Array.index);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	25 print_tree(node->left);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	26 print_tree(node->right);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	27 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	28 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	29
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	30 void start_taskManager(struct Context context) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	31 goto initDataGears(context, Gearef(context, LoopCounter), Gearef(context, TaskManager));
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	32 return 0;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	33 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	34
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	35 #ifdef USE_CUDAWorker
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	36 #ifdef USE_CUDA_MAIN_THREAD
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	37 extern volatile int cuda_initialized;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	38 #endif
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	39 #endif
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	40
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	41 __code initDataGears(struct LoopCounter* loopCounter, struct TaskManager* taskManager) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	42 // loopCounter->tree = createRedBlackTree(context);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	43 loopCounter->i = 0;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	44 taskManager->taskManager = (union Data*)createTaskManagerImpl(context, cpu_num, gpu_num, 0);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	45 #ifdef USE_CUDAWorker
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	46 #ifdef USE_CUDA_MAIN_THREAD
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	47 while(! cuda_initialized) {};
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	48 #endif
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	49 #endif
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	50 goto meta(context, C_createTask1);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	51 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	52
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	53 __code initDataGears_stub(struct Context* context) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	54 struct TaskManager* taskManager = Gearef(context, TaskManager);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	55 taskManager->taskManager = 0;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	56 #if (! defined(USE_CUDAWorker) \|\| ! defined(USE_CUDA_MAIN_THREAD))
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	57 struct LoopCounter* loopCounter = Gearef(context, LoopCounter);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	58 goto initDataGears(context, loopCounter, taskManager);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	59 #else
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	60 cuda_initialized = 0;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	61 pthread_t thread;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	62 pthread_create(&thread, NULL, (void*)&start_taskManager, context);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	63 while (taskManager->taskManager == 0);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	64 TaskManager t = (TaskManager)taskManager->taskManager;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	65 TaskManagerImpl im = (TaskManagerImpl)t->taskManager;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	66 struct Queue q = (Queue )im->workers[0];
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	67 createCUDAWorker(context,0,q, im);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	68 pthread_join(thread,0);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	69 exit(0);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	70 #endif
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	71 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	72
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	73 __code code1(struct Time* time) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	74 printf("cpus:\t\t%d\n", cpu_num);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	75 printf("gpus:\t\t%d\n", gpu_num);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	76 printf("length:\t\t%d\n", length);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	77 /* puts("queue"); */
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	78 /* print_queue(context->data[ActiveQueue]->queue.first); */
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	79 /* puts("tree"); */
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	80 /* print_tree(context->data[Tree]->tree.root); */
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	81 /* puts("result"); */
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	82
328 48c2b5bcab79 Fix calc example Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 327 diff changeset	83 //time->next = C_code2;
48c2b5bcab79 Fix calc example Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 327 diff changeset	84 goto meta(context, C_exit_code);
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	85 //goto meta(context, C_start_time);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	86 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	87
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	88 __code code1_stub(struct Context* context) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	89 goto code1(context, Gearef(context, Time));
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	90 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	91
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	92
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	93 __code createTask1(struct LoopCounter* loopCounter, struct TaskManager* taskManager) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	94 int i = loopCounter->i;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	95
328 48c2b5bcab79 Fix calc example Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 327 diff changeset	96 if (i < length) {
327 534601ed8c50 Running dependency example for single thread and single task Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 326 diff changeset	97 loopCounter->i++;
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	98 taskManager->next = C_createTask2;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	99 goto meta(context, taskManager->taskManager->TaskManager.createTask);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	100 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	101
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	102 loopCounter->i = 0;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	103 taskManager->next = C_code1;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	104 goto meta(context, taskManager->taskManager->TaskManager.shutdown);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	105 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	106
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	107 __code createTask2(LoopCounter* loopCounter, TaskManager* taskManager, struct Context task, Integer integer1, Integer integer2, Integer integer3) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	108 int i = loopCounter->i;
328 48c2b5bcab79 Fix calc example Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 327 diff changeset	109 integer2->value = i;
342 de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	110 par goto mult(integer1, integer2, integer3, _exit);
de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	111 goto createTask3;
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	112 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	113
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	114 __code createTask2_stub(struct Context* context) {
327 534601ed8c50 Running dependency example for single thread and single task Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 326 diff changeset	115 Integer* integer1 = &ALLOCATE_DATA_GEAR(context, Integer)->Integer;
534601ed8c50 Running dependency example for single thread and single task Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 326 diff changeset	116 Integer* integer2 = &ALLOCATE_DATA_GEAR(context, Integer)->Integer;
534601ed8c50 Running dependency example for single thread and single task Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 326 diff changeset	117 Integer* integer3 = &ALLOCATE_DATA_GEAR(context, Integer)->Integer;
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	118 goto createTask2(context,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	119 Gearef(context, LoopCounter),
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	120 Gearef(context, TaskManager),
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	121 Gearef(context, TaskManager)->context,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	122 integer1,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	123 integer2,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	124 integer3);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	125 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	126
327 534601ed8c50 Running dependency example for single thread and single task Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 326 diff changeset	127 __code createTask3(struct TaskManager* taskManager) {
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	128 taskManager->next = C_createTask4;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	129 goto meta(context, taskManager->taskManager->TaskManager.spawn);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	130 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	131
344 b8be1d51f002 Add CodeGear interface Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 342 diff changeset	132 __code createTask4(LoopCounter* loopCounter, TaskManager* taskManager, struct Context* task, Integer integer1, Integer integer2, Integer *integer3) {
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	133 int i = loopCounter->i;
342 de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	134 integer1->value = i;
de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	135 integer2->value = i+1;
345 2da00c034fbc Add waitTask for Add_CodeGear Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 344 diff changeset	136
2da00c034fbc Add waitTask for Add_CodeGear Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 344 diff changeset	137 codeGear->codeGear= createAddCodeGear(context);
344 b8be1d51f002 Add CodeGear interface Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 342 diff changeset	138 codeGear->codeGear[0] = (union Data*)integer1;
b8be1d51f002 Add CodeGear interface Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 342 diff changeset	139 codeGear->codeGear[1] = (union Data*)integer2;
b8be1d51f002 Add CodeGear interface Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 342 diff changeset	140 codeGear->codeGear[2] = (union Data*)integer3;
345 2da00c034fbc Add waitTask for Add_CodeGear Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 344 diff changeset	141 codeGear->next = C_createTask1;
2da00c034fbc Add waitTask for Add_CodeGear Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 344 diff changeset	142 codeGear->taskManager = taskManager;
2da00c034fbc Add waitTask for Add_CodeGear Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 344 diff changeset	143 goto meta(context, codeGear->codeGear->CodeGear.setInfo);
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	144 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	145
344 b8be1d51f002 Add CodeGear interface Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 342 diff changeset	146 __code createTask4_stub(struct Context* context) {
327 534601ed8c50 Running dependency example for single thread and single task Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 326 diff changeset	147 Integer* integer1 = &ALLOCATE_DATA_GEAR(context, Integer)->Integer;
534601ed8c50 Running dependency example for single thread and single task Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 326 diff changeset	148 Integer* integer2 = &ALLOCATE_DATA_GEAR(context, Integer)->Integer;
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	149 goto createTask5(context,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	150 Gearef(context, LoopCounter),
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	151 Gearef(context, TaskManager),
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	152 Gearef(context, TaskManager)->context,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	153 integer1,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	154 integer2,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	155 &Gearef(context, TaskManager)->data->Integer);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	156 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	157
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	158
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	159 void init(int argc, char** argv) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	160 for (int i = 1; argv[i]; ++i) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	161 if (strcmp(argv[i], "-cpu") == 0)
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	162 cpu_num = (int)atoi(argv[i+1]);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	163 else if (strcmp(argv[i], "-l") == 0)
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	164 length = (int)atoi(argv[i+1]);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	165 else if (strcmp(argv[i], "-cuda") == 0) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	166 gpu_num = 1;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	167 CPU_CUDA = 0;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	168 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	169 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	170 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	171
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	172
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	173 int main(int argc, char** argv) {
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	174 init(argc, argv);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	175 struct Context* main_context = NEW(struct Context);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	176 initContext(main_context);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	177 main_context->next = C_initDataGears;
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	178
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	179 goto start_code(main_context);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	180 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	181
342 de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	182 __code add(struct Integer* input1, struct Integer* input2, __code next(struct Integer* output, ...)) {
de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	183 output->value = input1->value + input2->value;
de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	184 printf("%d + %d = %d\n", input1->value, input2->value, output->value);
de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	185 goto meta(context, context->next);
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	186 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	187
342 de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	188 __code add_stub(struct Context* context) {
de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	189 goto add(context,
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	190 &context->data[context->idg]->Integer,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	191 &context->data[context->idg + 1]->Integer,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	192 &context->data[context->odg]->Integer);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	193
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	194 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	195
342 de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	196 __code mult(struct Integer* input1, struct Integer* input2, __code next(struct Integer* output, ...)) {
de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	197 output->value = input1->value * input2->value;
de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	198 printf("%d * %d = %d\n", input1->value, input2->value, output->value);
330 a258505bf9fd Add assert calc examples Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 328 diff changeset	199 assert(output->value == 2 * (input2->value * input2->value) + input2->value);
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	200 goto meta(context, context->next);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	201 }
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	202
342 de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	203 __code mult_stub(struct Context* context) {
de1e315379c6 Add CodeGear.cbc Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: 341 diff changeset	204 goto mult(context,
326 f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	205 &context->data[context->idg]->Integer,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	206 &context->data[context->idg + 1]->Integer,
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	207 &context->data[context->odg]->Integer);
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	208
f23f6d0aa4e9 Add examples/calc.cbc and build but not work Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> parents: diff changeset	209 }

Mercurial > hg > Members > Moririn

annotate src/parallel_execution/examples/calc.cbc @ 345:2da00c034fbc