if (!vtype) {
compile_error(ast_ctx(self), "internal error: ast_function_new condition 0");
goto cleanup;
+ } else if (vtype->hasvalue || vtype->expression.vtype != TYPE_FUNCTION) {
} else if (vtype->hasvalue || vtype->expression.vtype != TYPE_FUNCTION) {
compile_error(ast_ctx(self), "internal error: ast_function_new condition %i %i type=%i (probably 2 bodies?)",
(int)!vtype,
self->fixedparams = NULL;
self->return_value = NULL;
+ self->accumulate = NULL;
+ self->accumulation = 0;
+
return self;
cleanup:
ir_value *dummy;
ast_expression *ec;
ast_expression_codegen *cgen;
+
size_t i;
(void)ir;
}
}
+ /* generate the call for any accumulation */
+ if (self->accumulate) {
+ ast_call *call = ast_call_new(ast_ctx(self), (ast_expression*)self->accumulate->vtype);
+ for (i = 0; i < vec_size(ec->params); i++)
+ vec_push(call->params, (ast_expression*)ec->params[i]);
+ vec_push(vec_last(self->blocks)->exprs, (ast_expression*)call);
+ }
+
for (i = 0; i < vec_size(self->blocks); ++i) {
cgen = self->blocks[i]->expression.codegen;
if (!(*cgen)((ast_expression*)self->blocks[i], self, false, &dummy))