[Openmcl-cvs-notifications] r14301 - /trunk/source/compiler/X86/x86-disassemble.lisp

[rme at clozure.com]

Author: rme
Date: Sat Sep 25 13:21:48 2010
New Revision: 14301

Log:
Print "big" (> 100) numbers using #x notation instead of
in decimal.

Modified:
    trunk/source/compiler/X86/x86-disassemble.lisp

Modified: trunk/source/compiler/X86/x86-disassemble.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/X86/x86-disassemble.lisp (original)
+++ trunk/source/compiler/X86/x86-disassemble.lisp Sat Sep 25 13:21:48 2010
@@ -2763,7 +2763,10 @@
     (format stream " ")
     (labels ((out (stream expr)
                (cond ((atom expr)
-                      (format stream "~a" expr))
+		      (if (and (typep expr 'integer)
+			       (> (abs expr) 100))
+			(format stream "#x~x" expr)
+			(format stream "~a" expr)))
                      ((quoted-form-p expr)
                       (format stream "'~s" (cadr expr)))
                      (t