Changeset 13247


Ignore:
Timestamp:
Dec 3, 2009, 10:20:38 AM (10 years ago)
Author:
gb
Message:

When fetching the next 32/64-bit word, don't assert that 32/64-bit
intermediate values are FIXNUMs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x86-disassemble.lisp

    r13124 r13247  
    119119         (high (x86-ds-next-u16 ds)))
    120120    (declare (type (unsigned-byte 16) low high))
    121     (logior (the fixnum (ash high 16)) low)))
     121    (logior (ash high 16) low)))
    122122
    123123(defun x86-ds-next-s32 (ds)
     
    126126    (declare (type (unsigned-byte 16) low)
    127127             (type (signed-byte 16) high))
    128     (logior (the fixnum (ash high 16)) low)))
     128    (logior (ash high 16) low)))
    129129
    130130(defun x86-ds-next-u64 (ds)
    131131  (let* ((low (x86-ds-next-u32 ds))
    132132         (high (x86-ds-next-u32 ds)))
    133     (logior (the fixnum (ash high 32)) low)))
     133    (logior (ash high 32) low)))
    134134
    135135(defun x86-ds-next-s64 (ds)
    136136  (let* ((low (x86-ds-next-u32 ds))
    137137         (high (x86-ds-next-s32 ds)))
    138     (logior (the fixnum (ash high 32)) low)))
     138    (logior (ash high 32) low)))
    139139
    140140(defun used-rex (ds value)
Note: See TracChangeset for help on using the changeset viewer.