view paper/src/twice.c @ 28:85d3468efecc default tip

fix
author Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp>
date Thu, 25 Feb 2016 16:40:05 +0900
parents 958634b9fa32
children
line wrap: on
line source

// Code Gear
__code twice(struct Context* context, struct LoopCounter* loopCounter, int index, int alignment, int* array) {
    int i = loopCounter->i;

    if (i < alignment) {
        array[i+index*alignment] = array[i+index*alignment]*2;
        loopCounter->i++;

        goto meta(context, Twice);
    }

    loopCounter->i = 0;

    stack_pop(context->code_stack, &context->next);
    goto meta(context, context->next);
}

// Meta Code Gear(stub)
__code twice_stub(struct Context* context) {
    goto twice(context,
               &context->data[LoopCounter]->loopCounter,
               context->data[Node]->node.value->array.index,
               context->data[Node]->node.value->array.alignment,
               context->data[Node]->node.value->array.array);
}