Mercurial > hg > Gears > GearsAgda
view src/parallel_execution/allocate.c @ 217:c34e6aa10967
Fix DataGear access name
author | Tatsuki IHA <e125716@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 09 Jan 2017 01:18:13 +0900 |
parents | 473b7d990a1f |
children |
line wrap: on
line source
#include "context.h" #include "origin_cs.h" union Data* allocator(struct Context* context) { context->data[++context->dataNum] = context->heap; context->heap += context->data[D_Allocate]->Allocate.size; return context->data[context->dataNum]; } __code allocatorCS(struct Context* context, struct Allocate* allocate) { context->data[++context->dataNum] = context->heap; context->heap += allocate->size; goto meta(context, allocate->next); } __code allocator_stub(struct Context* context) { goto allocatorCS(context, &context->data[D_Allocate]->Allocate); }