Changeset 8987


Ignore:
Timestamp:
Apr 2, 2008, 8:12:08 AM (11 years ago)
Author:
gb
Message:

Propagate (small) improvement to REALP from working-0711 to trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-pred.lisp

    r7724 r8987  
    130130                       (ash 1 ppc64::subtag-ratio))))
    131131    #+x8664-target
    132     (if (< typecode x8664::nbits-in-word)
     132    (if (<= typecode x8664::subtag-double-float)
    133133      (logbitp (the (integer 0 #.x8664::subtag-double-float) typecode)
    134134               (logior (ash 1 x8664::tag-fixnum)
Note: See TracChangeset for help on using the changeset viewer.