Mercurial > hg > Gears > GearsAgda
view src/parallel_execution/allocate.c @ 261:0cd43e22aee1
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 28 Jan 2017 15:48:54 +0900 |
parents | c34e6aa10967 |
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); }