Changeset 12902


Ignore:
Timestamp:
Oct 3, 2009, 3:41:02 AM (10 years ago)
Author:
rme
Message:

New function X86-PRINT-ONE-DISASSEMBLED-INSTRUCTION.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/watchpoints/compiler/X86/x86-disassemble.lisp

    r12846 r12902  
    27582758      (out stream expr))))
    27592759
     2760(defun x86-print-one-disassembled-instruction (ds instruction)
     2761  (dolist (p (x86-di-prefixes instruction))
     2762    (format t "~&  (~a)~%" p))
     2763  (format t "  (~a" (x86-di-mnemonic instruction))
     2764  (let* ((op0 (x86-di-op0 instruction))
     2765         (op1 (x86-di-op1 instruction))
     2766         (op2 (x86-di-op2 instruction)))
     2767    (when op0
     2768      (write-x86-lap-operand t op0 ds)
     2769      (when op1
     2770        (write-x86-lap-operand t op1 ds)
     2771        (when op2
     2772          (write-x86-lap-operand t op2 ds)))))
     2773  (format t ")")
     2774  (format t "~%"))
     2775
    27602776(defvar *previous-source-note*)
    27612777
Note: See TracChangeset for help on using the changeset viewer.