From 9b75f546b3a171a4e5afc7ed9d4969f73113c2c9 Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Sat, 17 Aug 2024 12:53:10 +0100
Subject: skip glob for tests

---
 com.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'com.c')

diff --git a/com.c b/com.c
index 432ebb4..ca18c36 100644
--- a/com.c
+++ b/com.c
@@ -655,6 +655,8 @@ static void cpl_expr(Compiler *C, Val v, int flags) {
 	// so (returned values) = (stack change) - (new locals) = 1
 	CHECK( (stack_cur_b - stack_cur_a) - (nlocals_b - nlocals_a) == 1,
 	      "stack corruption (compiler bug)");
+	CHECK( (flags & F_toplevel) || (nlocals_b == nlocals_a),
+	      "local declared not at top level (compiler bug)");
 }
 
 
-- 
cgit v1.2.3