diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-02-27 22:23:11 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-02-27 22:23:11 -0800 |
| commit | b506c5f239d413745875e564b3a34aa6f18f3a4e (patch) | |
| tree | 1d1dfa511cff75cb3f72c6e62b0f48ab998808a6 /share | |
| parent | 7b5a8d45a8a886699ad4cbc355c574afa32bef9c (diff) | |
| download | txr-b506c5f239d413745875e564b3a34aa6f18f3a4e.tar.gz txr-b506c5f239d413745875e564b3a34aa6f18f3a4e.tar.bz2 txr-b506c5f239d413745875e564b3a34aa6f18f3a4e.zip | |
asm: getlx, setlx: disassembler bug.
* share/txr/stdlib/asm.tl (op-getlx dis, op-setlx dis): Decode
the small operand destination field correctly as such.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/asm.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index e9e4e9da..75d84471 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -765,7 +765,7 @@ (t asm.(put-insn me.code (enc-small-op 1) idx) asm.(asm-one ^(mov ,(operand-to-exp dst) t1)))))) (:method dis (me asm dst idx) - ^(,me.symbol ,(operand-to-sym dst) ,idx))) + ^(,me.symbol ,(small-op-to-sym dst) ,idx))) (defopcode op-setlx setlx auto (:method asm (me asm syntax) @@ -777,7 +777,7 @@ (t asm.(asm-one ^(mov t1 ,(operand-to-exp src))) asm.(put-insn me.code (enc-small-op 1) idx))))) (:method dis (me asm src idx) - ^(,me.symbol ,(operand-to-sym src) ,idx))) + ^(,me.symbol ,(small-op-to-sym src) ,idx))) (defopcode-derived op-getf getf auto op-getlx) |