From 227ca63946fc230db1fd681c107182fc0522674e Mon Sep 17 00:00:00 2001 From: =?utf8?q?J=C3=A9r=C3=A9mie=20Astor?= Date: Wed, 27 Apr 2022 12:09:37 +0200 Subject: [PATCH] :art: Clean (remove commented fork_exp) --- src/lib/lib_func.c | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) diff --git a/src/lib/lib_func.c b/src/lib/lib_func.c index 2ee19198..26e6c116 100644 --- a/src/lib/lib_func.c +++ b/src/lib/lib_func.c @@ -614,23 +614,9 @@ static OP_EMIT(opem_op_impl) { instr->m_val2 = -SZ_INT; return ret; } -/* -ANN static void fork_exp(const Env env, const Exp_Unary *unary) { - Stmt_List slist = new_mp_vector(env->gwion->mp, sizeof(struct Stmt_), 1); - mp_vector_set(slist, struct Stmt_, 0, - ((struct Stmt_) { - .stmt_type = ae_stmt_exp, .d = { .stmt_exp = { .val = unary->exp, } }, - .pos = unary->exp->pos - })); - const Stmt code = new_stmt_code(env->gwion->mp, slist, unary->exp->pos); - ((Exp_Unary *)unary)->exp = NULL; - ((Exp_Unary *)unary)->code = code; - ((Exp_Unary *)unary)->unary_type = unary_code; -} -*/ + ANN static Type fork_type(const Env env, const Exp_Unary *unary) { const Type t = unary->exp->type; -// fork_exp(env, unary); if (t == env->gwion->type[et_void]) return env->gwion->type[et_fork]; char c[21 + strlen(t->name)]; sprintf(c, "TypedFork:[%s]", t->name); -- 2.43.0