diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-01-26 10:48:17 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-01-26 10:48:17 -0800 |
| commit | b92b3971bc7d0ed3a64c6b5c2d5633f698b50270 (patch) | |
| tree | 50bd9c3e1f2ce828318336c18e5a284b3d325fd6 | |
| parent | f1086fe65e26498eb4135daf57d7c9089ecba6a8 (diff) | |
| download | txr-b92b3971bc7d0ed3a64c6b5c2d5633f698b50270.tar.gz txr-b92b3971bc7d0ed3a64c6b5c2d5633f698b50270.tar.bz2 txr-b92b3971bc7d0ed3a64c6b5c2d5633f698b50270.zip | |
disassemble: tidier data table.
* share/txr/stdlib/asm.tl (dissassemble-cdf): Print the rows
of the data table with simple numeric offsets, with no d
prefix or leading zeros.
| -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 a72cbaa2..e9e4e9da 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -784,7 +784,7 @@ (defun disassemble-cdf (code data funv *stdout*) (let ((asm (new assembler buf code))) (put-line "data:") - (mapdo (do format t " d~,03X: ~s\n" @1 @2) (range 0) data) + (mapdo (do format t "~5d: ~s\n" @1 @2) (range 0) data) (put-line "syms:") (mapdo (do format t "~5d: ~s\n" @1 @2) (range 0) funv) (put-line "code:") |