Changeset 14301


Ignore:
Timestamp:
Sep 25, 2010, 6:21:48 PM (9 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x86-disassemble.lisp

    r13247 r14301  
    27642764    (labels ((out (stream expr)
    27652765               (cond ((atom expr)
    2766                       (format stream "~a" expr))
     2766                      (if (and (typep expr 'integer)
     2767                               (> (abs expr) 100))
     2768                        (format stream "#x~x" expr)
     2769                        (format stream "~a" expr)))
    27672770                     ((quoted-form-p expr)
    27682771                      (format stream "'~s" (cadr expr)))
Note: See TracChangeset for help on using the changeset viewer.