Changeset 14810
- Timestamp:
- Jun 3, 2011, 7:04:45 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/compiler/X86/x86-disassemble.lisp
r14809 r14810 2791 2791 (format t "~vt" tab-stop)) 2792 2792 (format t "(~a" (x86-di-mnemonic instruction)) 2793 2794 2795 2796 2797 2798 2799 2800 2801 2802 2793 (let* ((op0 (x86-di-op0 instruction)) 2794 (op1 (x86-di-op1 instruction)) 2795 (op2 (x86-di-op2 instruction))) 2796 (when op0 2797 (write-x86-lap-operand t op0 ds) 2798 (when op1 2799 (write-x86-lap-operand t op1 ds) 2800 (when op2 2801 (write-x86-lap-operand t op2 ds))))) 2802 (format t ")~%")) 2803 2803 2804 2804 (defun x86-print-disassembled-instruction (ds instruction seq function)
Note: See TracChangeset
for help on using the changeset viewer.