ed/Odin
1
0
Fork 0
mirror of https://github.com/Ed94/Odin.git synced 2026-08-05 23:28:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix pointer cast of constant procedure values

Browse Source
This commit is contained in:
gingerBill
2022-09-08 17:27:13 +01:00
parent 8fb9db3deb
commit 3fae8b49db
1 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/llvm_backend_const.cpp
+9 -10
View File
@@ -381,12 +381,17 @@ lbValue lb_const_value(lbModule *m, Type *type, ExactValue value, bool allow_loc
} }
if (value.kind == ExactValue_Procedure) { if (value.kind == ExactValue_Procedure) {
lbValue res = {};
Ast *expr = unparen_expr(value.value_procedure); Ast *expr = unparen_expr(value.value_procedure);
if (expr->kind == Ast_ProcLit) { if (expr->kind == Ast_ProcLit) {
return lb_generate_anonymous_proc_lit(m, str_lit("_proclit"), expr); res = lb_generate_anonymous_proc_lit(m, str_lit("_proclit"), expr);
} else {
Entity *e = entity_from_expr(expr);
res = lb_find_procedure_value_from_entity(m, e);
} }
Entity *e = entity_from_expr(expr); res.value = LLVMConstPointerCast(res.value, lb_type(m, res.type));
return lb_find_procedure_value_from_entity(m, e); return res;
} }
bool is_local = allow_local && m->curr_procedure != nullptr; bool is_local = allow_local && m->curr_procedure != nullptr;
@@ -1141,13 +1146,7 @@ lbValue lb_const_value(lbModule *m, Type *type, ExactValue value, bool allow_loc
} }
break; break;
case ExactValue_Procedure: case ExactValue_Procedure:
{ GB_PANIC("handled earlier");
Ast *expr = value.value_procedure;
GB_ASSERT(expr != nullptr);
if (expr->kind == Ast_ProcLit) {
return lb_generate_anonymous_proc_lit(m, str_lit("_proclit"), expr);
}
}
break; break;
case ExactValue_Typeid: case ExactValue_Typeid:
return lb_typeid(m, value.value_typeid); return lb_typeid(m, value.value_typeid);