Changeset 6311


Ignore:
Timestamp:
Apr 20, 2007, 8:52:43 AM (15 years ago)
Author:
gb
Message:

Recognize subprim addresses in CALL operands.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/compiler/X86/x86-disassemble.lisp

    r6296 r6311  
    11231123   (make-x86-dis "outS" 'op-i +b-mode+ 'op-imreg +eax-reg+)
    11241124   ;; #xe8
    1125    (make-x86-dis "callT" 'op-j +v-mode+)
     1125   (make-x86-dis '("callT" . :call) 'op-j +v-mode+)
    11261126   (make-x86-dis '("jmpT" . :jump) 'op-j +v-mode+)
    11271127   (make-x86-dis '(("JjmpT" . "(bad)") . :jump) 'op-dir 0)
     
    16481648    (make-x86-dis "incQ" 'op-e +v-mode+)
    16491649    (make-x86-dis "decQ" 'op-e +v-mode+)
    1650     (make-x86-dis "callT" 'op-indire +v-mode+)
    1651     (make-x86-dis "JcallT" 'op-indire +f-mode+)
     1650    (make-x86-dis '("callT" . :call) 'op-indire +v-mode+)
     1651    (make-x86-dis '("JcallT" . :call) 'op-indire +f-mode+)
    16521652    (make-x86-dis '("jmpT" . :jump) 'op-indire +v-mode+)
    16531653    (make-x86-dis '("JjmpT" . :jump) 'op-indire +f-mode+)
     
    24212421                         (parse-x86-lap-expression `(:^ ,entry-ea)))
    24222422                   (push entry-ea (x86-ds-pending-labels ds)))))))
    2423           (:jump
     2423          ((:jump :call)
    24242424           (let* ((disp (is-disp-only op0)))
    24252425             (when disp
Note: See TracChangeset for help on using the changeset viewer.