Mercurial > hg > Gears > GearsAgda
view src/parallel_execution/examples/Mult.cbc @ 355:45afe5d70956
Fix
author | Tatsuki IHA <innparusu@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 22 Jun 2017 16:20:56 +0900 |
parents | b07078bd1f2c |
children |
line wrap: on
line source
#include "../../context.h" #include <stdio.h> __code mult(struct Integer* input1, struct Integer* input2, __code next(struct Integer* output, ...)) { struct Integer* output = *O_output; output->value = input1->value * input2->value; printf("%d * %d = %d\n", input1->value, input2->value, output->value); *O_output = output; goto meta(context, next); } __code mult_stub(struct Context* context) { Integer** O_output = (struct Integer **)&context->data[context->odg]; goto mult(context, &context->data[context->idg]->Integer, &context->data[context->idg + 1]->Integer, context->next, O_output); }