ed/Odin
1
0
Fork 0
mirror of https://github.com/Ed94/Odin.git synced 2026-07-18 08:41:31 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix procedure calls from non-regular addressing modes

Browse Source
This commit is contained in:
Ginger Bill
2017-04-17 22:17:16 +01:00
parent 0c22081e5f
commit 813a028ed0
2 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/check_expr.c
+4 -2
View File
@@ -4764,11 +4764,13 @@ ExprKind check_call_expr(Checker *c, Operand *operand, AstNode *call) {
Type *proc_type = base_type(operand->type);
if (operand->mode != Addressing_Overload) {
bool valid_type = (proc_type != NULL) && is_type_proc(proc_type);
bool valid_mode = (operand->mode == Addressing_Value) || (operand->mode == Addressing_Variable);
bool valid_mode = is_operand_value(*operand);
if (!valid_type || !valid_mode) {
AstNode *e = operand->expr;
gbString str = expr_to_string(e);
error_node(e, "Cannot call a non-procedure: `%s` %d", str, operand->mode);
gbString type_str = type_to_string(operand->type);
error_node(e, "Cannot call a non-procedure: `%s` of type `%s`", str, type_str);
gb_string_free(type_str);
gb_string_free(str);
operand->mode = Addressing_Invalid;