diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-14 06:10:50 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-14 06:10:50 -0700 |
| commit | b244a78a159c87313ae644bbb70a732033a52ed4 (patch) | |
| tree | 82298b07889d299328f43aacd5d088184e6af2bc | |
| parent | d32527312c4467817eef8527907fccb3cc5ed42a (diff) | |
| download | txr-b244a78a159c87313ae644bbb70a732033a52ed4.tar.gz txr-b244a78a159c87313ae644bbb70a732033a52ed4.tar.bz2 txr-b244a78a159c87313ae644bbb70a732033a52ed4.zip | |
asm: bugfix: correct value of (v x y) operands.
* share/txr/stdlib/asm.tl (parse-compound-operand): Add the
forgotten increment by two to the level number of the v
operand, since (v 0 n) is in the third display level.
| -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 ce092c1e..be0b84bb 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -219,7 +219,7 @@ (when (and (<= 0 arg1 253) (<= 0 arg2 255)) (caseq sym - (v (+ (* arg1 256) arg2))))))) + (v (+ (* (ssucc arg1) 256) arg2))))))) (defun parse-operand (str) (cond |