diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-28 06:24:47 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-28 06:24:47 -0700 |
| commit | 802f0c445c01a430dc2260b1b2461e5ec4d86cb9 (patch) | |
| tree | 313f5bb027ae2c5a18014bcd62a8dba35e67f4ff | |
| parent | 280221ed0e05d5a1c3887e088a2dfc6b292c8a63 (diff) | |
| download | txr-802f0c445c01a430dc2260b1b2461e5ec4d86cb9.tar.gz txr-802f0c445c01a430dc2260b1b2461e5ec4d86cb9.tar.bz2 txr-802f0c445c01a430dc2260b1b2461e5ec4d86cb9.zip | |
asm: use capital hex for dregs.
* share/txr/stdlib/asm.tl (disassemble-c-d): When printing the
data table, use capital hexadecimal for the dregs, consistent
with the instruction listing.
| -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 0b2efb69..19ac30ba 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -713,7 +713,7 @@ (defun disassemble-c-d (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~,02X: ~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:") |