Mercurial > hg > Gears > GearsAgda
view src/parallel_execution/origin_cs.c @ 247:ce262b2c1daf
Fix createTask for main
author | Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 25 Jan 2017 04:14:50 +0900 |
parents | bd11fa6891b6 |
children |
line wrap: on
line source
#include <stdlib.h> #include <stdio.h> #include "context.h" __code meta(struct Context* context, enum Code next) { // printf("meta %d\n",next); goto (context->code[next])(context); } __code start_code(struct Context* context) { goto meta(context, context->next); } __code start_code_stub(struct Context* context) { goto start_code(context); } __code exit_code(struct Context* context) { free(context->code); free(context->data); free(context->heapStart); goto exit(0); } __code exit_code_stub(struct Context* context) { goto exit_code(context); }