eris2206

commit 831c92d6a2c7d583296af3d3f3a8ea3547501fc3
parent 5295ea4d583a4b09a273b34acc0694fb8072247d
Author: Gerd Beuster <gerd@frombelow.net>
Date:   Sun, 14 Dec 2025 17:47:12 +0100

Bugfix

Diffstat:
M
src/tools/eras.pl
 | 
6
++++--

1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/src/tools/eras.pl b/src/tools/eras.pl
@@ -147,8 +147,10 @@ command([(number(X, M), lineNumber(N), bytePosition(B), assembly(X))],
 % Label definitions refer to the current byte position. We store the
 % association of label and byte position.
 command([(labelDefinition(S), lineNumber(N), bytePosition(B), assembly())],
-        L, L.put(S, B), B, B) -->
-    [(labelDefinition(S), lineNumber(N))].
+        L0, L1, B, B) -->
+    [(labelDefinition(S), lineNumber(N))],
+    { L1 = L0.put(S, B) }.
+
 % Opcodes may or may not be followed by an argument (number or label
 % reference). Since the argument indicates the addressing mode of the
 % opcode, we have to parse them together.