From ba8371104d86b93af3054ed20bc2fdf8768052d9 Mon Sep 17 00:00:00 2001 From: gingerBill Date: Wed, 6 Dec 2017 11:01:52 +0000 Subject: Set procedure grouping type to `t_invalid` --- src/checker.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/checker.cpp') diff --git a/src/checker.cpp b/src/checker.cpp index 7c9f20135..00f5df066 100644 --- a/src/checker.cpp +++ b/src/checker.cpp @@ -2261,7 +2261,7 @@ void check_collect_value_decl(Checker *c, AstNode *decl) { d->type_expr = pl->type; } else if (init->kind == AstNode_ProcGrouping) { ast_node(pg, ProcGrouping, init); - e = make_entity_procedure_grouping(c->allocator, d->scope, token, nullptr); + e = make_entity_procedure_grouping(c->allocator, d->scope, token, t_invalid); if (fl != nullptr) { error(name, "Procedure groupings are not allowed within a foreign block"); } -- cgit v1.2.3