ed/Odin
1
0
Fork 0
mirror of https://github.com/Ed94/Odin.git synced 2026-06-24 14:45:00 -07:00
Code Issues Packages Projects Releases Wiki Activity

Change tag checking order

Browse Source
This commit is contained in:
Ginger Bill
2017-04-16 23:08:48 +01:00
parent d1a0a46141
commit a213061f33
1 changed files with 5 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/check_expr.c
+5 -20
View File
@@ -4988,6 +4988,11 @@ ExprKind check_expr_base_internal(Checker *c, Operand *o, AstNode *node, Type *t
decl->proc_lit = pl->type;
c->context.decl = decl;
if (pl->tags != 0) {
error_node(node, "A procedure literal cannot have tags");
pl->tags = 0; // TODO(bill): Should I zero this?!
}
check_procedure_type(c, type, pl->type);
if (!is_type_proc(type)) {
gbString str = expr_to_string(node);
@@ -4996,11 +5001,6 @@ ExprKind check_expr_base_internal(Checker *c, Operand *o, AstNode *node, Type *t
check_close_scope(c);
return kind;
}
if (pl->tags != 0) {
error_node(node, "A procedure literal cannot have tags");
pl->tags = 0; // TODO(bill): Should I zero this?!
}
check_procedure_later(c, c->curr_ast_file, empty_token, decl, type, pl->body, pl->tags);
}
@@ -5008,21 +5008,6 @@ ExprKind check_expr_base_internal(Checker *c, Operand *o, AstNode *node, Type *t
c->context = prev_context;
// Type *type = check_type(c, pl->type);
// if (type == NULL || !is_type_proc(type)) {
// gbString str = expr_to_string(node);
// error_node(node, "Invalid procedure literal `%s`", str);
// gb_string_free(str);
// check_close_scope(c);
// return kind;
// }
// GB_ASSERT(c->context.scope->is_proc);
// check_procedure_later(c, c->curr_ast_file, empty_token, c->context.decl, type, pl->body, pl->tags);
// check_proc_body(c, empty_token, c->context.decl, type, pl->body);
// check_close_scope(c);
o->mode = Addressing_Value;
o->type = type;
case_end;