Changeset 7220


Ignore:
Timestamp:
Sep 14, 2007, 9:49:58 PM (12 years ago)
Author:
rme
Message:

Minor corrections.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/x86-disassemble.lisp

    r7204 r7220  
    23602360                 (eq entry (if (x86-ds-mode-64 ds)
    23612361                             (x86::x86-reg64 13)
    2362                              (x86::x86-reg32 6))))))
     2362                             (x86::x86-reg32 x8632::fn))))))
    23632363           (is-rip (thing)
    23642364             (if (and (typep thing 'x86::x86-register-operand)
     
    26642664                 (if (x86-ds-mode-64 ds)
    26652665                   (x86::x86-reg64 13)
    2666                    (x86::x86-reg32 6)))
     2666                   (x86::x86-reg32 x8632::fn)))
    26672667             (null index)
    26682668             (or (eql scale 0) (null scale))
     
    27572757;;; count" between the header and the start of the machine
    27582758;;; instructions.  This is interpreted as the number of (32 bit) words
    2759 ;;; there are from the function header to the GC-able constants.
     2759;;; there are to the GC-able constants.
    27602760;;;
    27612761;;; Before the constants, there is a table of self-reference offsets.
     
    27642764;;; machine instructions.
    27652765(defun nbytes-to-delimiter (imm-word-count code-vector)
    2766   "Count of bytes leading up to four zero bytes, including initial 2 byte word count."
    27672766  (check-type code-vector (simple-array (unsigned-byte 8) (*)))
    2768   (do ((i (* 4 (1- imm-word-count)) (decf i 4)))
     2767  (do ((i (* 4 imm-word-count) (decf i 4)))
    27692768      ((and (zerop (aref code-vector (+ i 0)))
    27702769            (zerop (aref code-vector (+ i 1)))
Note: See TracChangeset for help on using the changeset viewer.