Ignore:
Timestamp:
Dec 22, 2009, 10:28:03 PM (10 years ago)
Author:
gz
Message:

Improved compilation for some fixnum operations, %svref (r13247-r13253 from trunk)

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl

  • branches/working-0711/ccl/compiler/X86/x86-disassemble.lisp

    r13146 r13332  
    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.