diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-06 07:15:13 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-06 07:15:13 -0700 |
| commit | 75b107868d1f58ab08b9b1852904b53cc6aa07df (patch) | |
| tree | 96291f9808f5175d3fdbc4f7fba6a460f7a1b3a7 | |
| parent | 6e911b640060d8cce4f2fbdf9237120b9a2251ea (diff) | |
| download | txr-75b107868d1f58ab08b9b1852904b53cc6aa07df.tar.gz txr-75b107868d1f58ab08b9b1852904b53cc6aa07df.tar.bz2 txr-75b107868d1f58ab08b9b1852904b53cc6aa07df.zip | |
asm: rename disassembly helper function.
* share/txr/stdlib/asm.tl (disassemble-c-d): Rename to
disassemble-cdf. These letters stand for code, data vector,
function vector. The name had been was chosen before the VM
had function vectors.
(usr:disassemble): Follow rename.
| -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 14f0e402..9f28e3b1 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -709,7 +709,7 @@ (unless (minusp fix) (add (operand-to-sym y)))))))))))) -(defun disassemble-c-d (code data funv *stdout*) +(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) @@ -722,7 +722,7 @@ (defun usr:disassemble (obj : (stream *stdout*)) (typecase obj - (vm-desc (disassemble-c-d (vm-desc-bytecode obj) + (vm-desc (disassemble-cdf (vm-desc-bytecode obj) (vm-desc-datavec obj) (vm-desc-funvec obj) stream)) |