__code allocate();
__code meta_allocate();

__code allocate(Context* context, int size, int num, __code (*next)()) {
    goto meta_allocate(context, size, num, next);
}

__code meta_allocate(Context* context, int size, int num, __code (*next)()) {
    context->next = next;
    void* ds = context->ds;
    context->ds += size*num;
    ((mdata*)context->mds)->ds = ds;
    ((mdata*)context->mds)->size = size;
    context->mds = (mdata*)context->mds+1;
    goto context->next(context, (data1*)ds);
}