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 | 25e75c04fd7efe85b40297101657ee856eac81c3 (patch) | |
| tree | 82298b07889d299328f43aacd5d088184e6af2bc | |
| parent | 6c3f25e2991344cda5c47ff87c49286ae991cc7b (diff) | |
| download | txr-25e75c04fd7efe85b40297101657ee856eac81c3.tar.gz txr-25e75c04fd7efe85b40297101657ee856eac81c3.tar.bz2 txr-25e75c04fd7efe85b40297101657ee856eac81c3.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 |