Index: /branches/x8664-call/ccl/compiler/X86/x86-disassemble.lisp
===================================================================
--- /branches/x8664-call/ccl/compiler/X86/x86-disassemble.lisp	(revision 6310)
+++ /branches/x8664-call/ccl/compiler/X86/x86-disassemble.lisp	(revision 6311)
@@ -1123,5 +1123,5 @@
    (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,6 +1648,6 @@
     (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,5 +2421,5 @@
                          (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