copy(...)

1 files changed, 12 insertions, 0 deletions

diff --git a/src/checker/expr.cpp b/src/checker/expr.cpp
index d39c86ee0..2fc55a294 100644
--- a/src/checker/expr.cpp
+++ b/src/checker/expr.cpp
@@ -1553,6 +1553,7 @@ ExpressionKind check_call_expr(Checker *c, Operand *operand, AstNode *call) {
 		return Expression_Statement;
 	}
 
+
 	if (operand->mode == Addressing_Builtin) {
 		i32 id = operand->builtin_id;
 		if (!check_builtin_procedure(c, operand, call, id))
@@ -1574,6 +1575,17 @@ ExpressionKind check_call_expr(Checker *c, Operand *operand, AstNode *call) {
 		return Expression_Statement;
 	}
 
+	if (curr_procedure(c) == NULL) {
+		AstNode *e = operand->expr;
+		gbString str = expr_to_string(e);
+		defer (gb_string_free(str));
+		error(&c->error_collector, ast_node_token(e), "Can ony call procedure within a procedure: `%s`", str);
+
+		operand->mode = Addressing_Invalid;
+		operand->expr = call;
+
+		return Expression_Statement;
+	}
 
 	check_call_arguments(c, operand, proc_type, call);