fix extern closure call arg type

1 files changed, 7 insertions, 3 deletions

diff --git a/src/lower.c b/src/lower.c
index 3ed8f49..731dc2c 100644
--- a/src/lower.c
+++ b/src/lower.c
@@ -857,13 +857,17 @@ static const char *fwd_ctypestr(struct type *t)
 	return NULL;
 }
 
-static int lower_extern_closure_call(struct state *state, struct type *rtype, size_t idx)
+static int lower_extern_closure_call(struct state *state, struct scope *scope, struct type *rtype, size_t idx)
 {
 	char *q = buildstr("%s_call%zu", state->prefix, uniq(state));
 
 	char *ctx_buf = NULL; size_t ctx_size = 0;
 	FILE *ctx = open_memstream(&ctx_buf, &ctx_size);
-	fprintf(ctx, "struct %s {\n fwd_start_t start;\n fwd_call_t closure;\n};\n", q);
+
+	char *type = lower_type_str(state, scope, rtype);
+	fprintf(ctx, "struct %s {\n fwd_start_t start;\n %s a0;\n};\n", q, type);
+	free(type);
+
 	fclose(ctx);
 	assert(ctx_buf);
 
@@ -966,7 +970,7 @@ static int lower_extern_proc(struct state *state, struct ast *proc)
 		fprintf(new_state.code, "assert(extern_args[0].type == %s);\n",
 				fwd_ctypestr(ctype));
 
-		if (lower_extern_closure_call(&new_state, ctype, idx))
+		if (lower_extern_closure_call(&new_state, proc->scope, ctype, idx))
 			return -1;
 
 	} else {