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 | a7ba7e3f866485c2ccd274bd7f02c4c399b3d4ea (patch) | |
| tree | d49fe55856d56b05d21514fa14e3c71938549d2c | |
| parent | f45d6da3ae0c60d4774f2ef5f7c1ea3d18ac3141 (diff) | |
| download | txr-a7ba7e3f866485c2ccd274bd7f02c4c399b3d4ea.tar.gz txr-a7ba7e3f866485c2ccd274bd7f02c4c399b3d4ea.tar.bz2 txr-a7ba7e3f866485c2ccd274bd7f02c4c399b3d4ea.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) |