From 3f79dd1c6a34b7f6746ace3b4a9592ebb83eb15f Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sat, 30 Jul 2022 09:59:44 -0700 Subject: Fix a bug in the linker label calculation. --- csc/linker.csc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'csc/linker.csc') diff --git a/csc/linker.csc b/csc/linker.csc index 6502cb0..5e4e678 100644 --- a/csc/linker.csc +++ b/csc/linker.csc @@ -109,7 +109,7 @@ (list 'alloc (list 'local 0) (list 'const (num-globals environment)))) (translate-globals (loop for prog in programs - for off = 0 then (+ off (length converted-prog)) + for off = 1 then (+ off (length converted-prog)) for converted-prog = (translate-labels prog (make-label-map off prog)) -- cgit v1.3.1