From a7ba7e3f866485c2ccd274bd7f02c4c399b3d4ea Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 14 Mar 2018 06:42:30 -0700 Subject: asm: wrong labels-outside-of-code test. * share/txr/stdlib/asm.tl (assembler asm): Allow instruction 0 to have a label L labeled by checking for the range 0 <= L < N. --- share/txr/stdlib/asm.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index be0b84bb..93ce63e3 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -161,7 +161,7 @@ (unless (empty me.labref) (error "assembler: dangling label references")) (whenlet ((n (cdr [find-max me.labdef : cdr]))) - (unless (< 0 n (len me.buf)) + (unless (< -1 n (len me.buf)) (error "assembler: labels outside of code")))) (defmeth assembler dis-one (me) -- cgit v1.2.3