diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-14 06:42:30 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-14 06:42:30 -0700 |
| commit | a0b1cd5e5ce981a001df4da5110913f9a6bffd11 (patch) | |
| tree | d49fe55856d56b05d21514fa14e3c71938549d2c | |
| parent | 00324bcd1ec8d987cf9c8a1637cc68f1ddc0ea04 (diff) | |
| download | txr-a0b1cd5e5ce981a001df4da5110913f9a6bffd11.tar.gz txr-a0b1cd5e5ce981a001df4da5110913f9a6bffd11.tar.bz2 txr-a0b1cd5e5ce981a001df4da5110913f9a6bffd11.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/asm.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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) |