From 3d91ce8a23cb7b8a8bdbe21ffcec496a26eacbf2 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Sat, 12 Mar 2016 12:35:33 -0500 Subject: [PATCH] x86-64: try printing any signed-imm as static symbol This will get false hits, but fixes the small annoyance (imho) that "CMP Rxx, " didn't annotate the line as "; T" whereas "MOV" did annotate it, which seemed too random. --- src/compiler/x86-64/insts.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/compiler/x86-64/insts.lisp b/src/compiler/x86-64/insts.lisp index 95fa3cd8a..df35d5505 100644 --- a/src/compiler/x86-64/insts.lisp +++ b/src/compiler/x86-64/insts.lisp @@ -268,7 +268,10 @@ (let ((width (width-bits (inst-operand-size dstate)))) (when (= width 64) (setf width 32)) - (read-signed-suffix width dstate)))) + (read-signed-suffix width dstate))) + :printer (lambda (value stream dstate) + (maybe-note-static-symbol value dstate) + (princ value stream))) (define-arg-type signed-imm-data/asm-routine :type 'signed-imm-data -- 2.11.4.GIT