diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-19 06:30:26 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-19 06:30:26 -0700 |
| commit | 85ae452077799e93991e53e04a005ac3a4db5f85 (patch) | |
| tree | 018ecd5f3b0cddc21270957e2beb67dac1241394 | |
| parent | 632703656926b0ac6461538d3cbf35fb95df72dc (diff) | |
| download | txr-85ae452077799e93991e53e04a005ac3a4db5f85.tar.gz txr-85ae452077799e93991e53e04a005ac3a4db5f85.tar.bz2 txr-85ae452077799e93991e53e04a005ac3a4db5f85.zip | |
asm: disassemble: three digits in t and d regs.
share/txr/stdlib/asm.tl (operand-to-sym): Print t and d
registers with three digits, like is done with the index
portion of v regs already.
(disassemble-cdf): Print three-digit d regs in data table
dump.
| -rw-r--r-- | share/txr/stdlib/asm.tl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index edf0b67a..990c126f 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -281,8 +281,8 @@ (caseql lv (0 (if (zerop ix) nil - (intern (fmt "t~,02X" ix)))) - (1 (intern (fmt "d~,02X" ix))) + (intern (fmt "t~,03X" ix)))) + (1 (intern (fmt "d~,03X" ix))) (t (intern (fmt "v~,02X~,03X" (ppred lv) ix)))))) (defun operand-to-exp (val) @@ -760,7 +760,7 @@ (defun disassemble-cdf (code data funv *stdout*) (let ((asm (new assembler buf code))) (put-line "data:") - (mapdo (do format t " d~,02X: ~s\n" @1 @2) (range 0) data) + (mapdo (do format t " d~,03X: ~s\n" @1 @2) (range 0) data) (put-line "funs:") (mapdo (do format t "~5d: ~s\n" @1 @2) (range 0) funv) (put-line "code:") |