Changeset 13028


Ignore:
Timestamp:
Oct 15, 2009, 6:11:02 PM (10 years ago)
Author:
rme
Message:

Undo r13001 (x86-print-bare-disassembled-instruction).

File:
1 edited

Legend:

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

    r13022 r13028  
    27742774      (out stream expr))))
    27752775
    2776 (defun x86-print-bare-disassembled-instruction (ds instruction)
    2777   (dolist (p (x86-di-prefixes instruction))
    2778     (format t "~&  (~a)~%" p))
    2779   (format t "  (~a" (x86-di-mnemonic instruction))
    2780   (let* ((op0 (x86-di-op0 instruction))
    2781          (op1 (x86-di-op1 instruction))
    2782          (op2 (x86-di-op2 instruction)))
    2783     (when op0
    2784       (write-x86-lap-operand t op0 ds)
    2785       (when op1
    2786         (write-x86-lap-operand t op1 ds)
    2787         (when op2
    2788           (write-x86-lap-operand t op2 ds)))))
    2789   (format t ")"))
    2790 
    27912776(defvar *previous-source-note*)
    27922777
     
    28082793      (setq seq 0))
    28092794    (format t "~&  [~D]~8T" pc)
    2810     (x86-print-bare-disassembled-instruction ds instruction)
     2795    (dolist (p (x86-di-prefixes instruction))
     2796      (format t "~&  (~a)~%" p))
     2797    (format t "  (~a" (x86-di-mnemonic instruction))
     2798    (let* ((op0 (x86-di-op0 instruction))
     2799           (op1 (x86-di-op1 instruction))
     2800           (op2 (x86-di-op2 instruction)))
     2801      (when op0
     2802        (write-x86-lap-operand t op0 ds)
     2803        (when op1
     2804          (write-x86-lap-operand t op1 ds)
     2805          (when op2
     2806            (write-x86-lap-operand t op2 ds)))))
     2807    (format t ")")
    28112808    (format t "~%")
    28122809    (1+ seq)))
Note: See TracChangeset for help on using the changeset viewer.