From 6518bc6964e7ecb4f187dcaf789fdc3742c5bb9d Mon Sep 17 00:00:00 2001
From: lemon <lsof@mailbox.org>
Date: Thu, 13 Oct 2022 12:03:16 +0200
Subject: [PATCH] check global decl names are not reserved

---
 pez.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/pez.c b/pez.c
index b8a9ebf..790ddab 100644
--- a/pez.c
+++ b/pez.c
@@ -3742,6 +3742,9 @@ stmt(Comp *cm)
             return comperr(cm, c, "expected identifier"), 0;
         }
         TRY(readident(cm, name, sizeof name));
+        if (reserved(name)) {
+            return comperr(cm, *name, "'%s' is a reserved keyword", name), 0;
+        }
         TRY(expectspchr(cm, '='));
         TRY(box_str(cm->cx, &key, name, strlen(name)));
         TRY(compconst(cm, key));
-- 
2.38.5