Changeset 6311

Timestamp:

Apr 20, 2007, 1:52:43 AM (18 years ago)

Author:

Gary Byers

Message:

Recognize subprim addresses in CALL operands.

File:

• branches/x8664-call/ccl/compiler/X86/x86-disassemble.lisp (modified) (3 diffs)

branches/x8664-call/ccl/compiler/X86/x86-disassemble.lisp

@@ -1123 +1123 @@
    (make-x86-dis "outS" 'op-i +b-mode+ 'op-imreg +eax-reg+)
    ;; #xe8
-   (make-x86-dis "callT" 'op-j +v-mode+)
+   (make-x86-dis '("callT" . :call) 'op-j +v-mode+)
    (make-x86-dis '("jmpT" . :jump) 'op-j +v-mode+)
    (make-x86-dis '(("JjmpT" . "(bad)") . :jump) 'op-dir 0)
@@ -1648 +1648 @@
     (make-x86-dis "incQ" 'op-e +v-mode+)
     (make-x86-dis "decQ" 'op-e +v-mode+)
-    (make-x86-dis "callT" 'op-indire +v-mode+)
-    (make-x86-dis "JcallT" 'op-indire +f-mode+)
+    (make-x86-dis '("callT" . :call) 'op-indire +v-mode+)
+    (make-x86-dis '("JcallT" . :call) 'op-indire +f-mode+)
     (make-x86-dis '("jmpT" . :jump) 'op-indire +v-mode+)
     (make-x86-dis '("JjmpT" . :jump) 'op-indire +f-mode+)
@@ -2421 +2421 @@
                          (parse-x86-lap-expression `(:^ ,entry-ea)))
                    (push entry-ea (x86-ds-pending-labels ds)))))))
-          (:jump
+          ((:jump :call)
            (let* ((disp (is-disp-only op0)))
              (when disp