From 28ab7ed6c4d4340cc6bc8eba302ab6b603d91f53 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 29 Nov 2019 22:29:22 -0800 Subject: disassemble: d and t regs in decimal. * share/txr/stdlib/asm.tl (operand-to-sym): Use decimal with no leading zeros for t and d registers. Only the v registers use hex, because that helps unravel their level structure. The data table is dumped with decimal numbering, so the d registers being decimal makes it easier to cross-ref. --- share/txr/stdlib/asm.tl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index 06a6b258..ffef617c 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -278,8 +278,8 @@ (caseql lv (0 (if (zerop ix) nil - (intern (fmt "t~,03X" ix)))) - (1 (intern (fmt "d~,03X" ix))) + (intern (fmt "t~s" ix)))) + (1 (intern (fmt "d~s" ix))) (t (intern (fmt "v~,02X~,03X" (ppred lv) ix)))))) (defun operand-to-exp (val) -- cgit v1.2.3