Changeset 16631
- Timestamp:
- Nov 2, 2015, 4:35:11 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/compiler/X86/x86-disassemble.lisp
r16630 r16631 1230 1230 (make-x86-dis "(bad)") 1231 1231 (make-x86-dis "(bad)") 1232 (make-x86-dis "nopS"'op-e +v-mode+)1232 (make-x86-dis '("nopS" . :nop) 'op-e +v-mode+) 1233 1233 ;; #x20 1234 1234 (make-x86-dis "movL" 'op-rd +m-mode+ 'op-c +m-mode+) … … 2122 2122 (when (consp template) 2123 2123 (if (x86-ds-mode-64 ds) 2124 (setq template (cdr template)) 2125 (setq template (car template)))) 2126 (if (dotimes (i (length template) t) 2124 (setq template (cdr template)) 2125 (setq template (car template)))) 2126 (setf (x86-di-flags instruction) flags) 2127 (if (dotimes (i (length template) t) 2127 2128 (unless (lower-case-p (schar template i)) 2128 2129 (return nil))) 2129 (setf (x86-di-mnemonic instruction) template 2130 (x86-di-flags instruction) flags) 2130 (setf (x86-di-mnemonic instruction) template) 2131 2131 (let* ((string-buffer (x86-ds-string-buffer ds)) 2132 2132 (mod (x86-ds-mod ds)) … … 2255 2255 (vector-push-extend (schar b i) string-buffer)))))) 2256 2256 (setf (x86-di-mnemonic instruction) (subseq string-buffer 0)))) 2257 ok))2257 ok)) 2258 2258 2259 2259 (defparameter *x86-disassemble-print-nop* nil) … … 2898 2898 (when op2 2899 2899 (write-x86-lap-operand t op2 ds))))) 2900 (format t ")~vt;~8<[~D]~>" (+ comment-start-offset tab-stop) (+ pc (x86-ds-entry-point ds))))2900 (format t ")~vt;~8<[~D]~>" (+ comment-start-offset tab-stop) pc)) 2901 2901 (when *disassemble-verbose* 2902 2902 (let* ((istart (x86-di-start instruction))
Note: See TracChangeset
for help on using the changeset viewer.