Check for procedure literals in $ parameters

This commit is contained in:
gingerBill
2023-02-19 12:11:57 +00:00
parent 20eacc4a84
commit c386c72d10
+10
View File
@@ -5419,8 +5419,18 @@ gb_internal CALL_ARGUMENT_CHECKER(check_call_arguments_internal) {
data->result_type = final_proc_type->Proc.results; data->result_type = final_proc_type->Proc.results;
data->gen_entity = gen_entity; data->gen_entity = gen_entity;
Ast *proc_lit = nullptr;
if (ce->proc->tav.value.kind == ExactValue_Procedure) {
Ast *vp = unparen_expr(ce->proc->tav.value.value_procedure);
if (vp && vp->kind == Ast_ProcLit) {
proc_lit = vp;
}
}
if (proc_lit == nullptr) {
add_type_and_value(c, ce->proc, Addressing_Value, final_proc_type, {}); add_type_and_value(c, ce->proc, Addressing_Value, final_proc_type, {});
} }
}
return err; return err;
} }