Changeset 10442


Ignore:
Timestamp:
Aug 11, 2008, 9:01:05 PM (11 years ago)
Author:
rme
Message:

Conditionalize REALP compiler-macro for x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/optimizers.lisp

    r10432 r10442  
    20702070      `(let* ((,typecode (typecode ,x)))
    20712071        (declare (type (unsigned-byte 8) ,typecode))
    2072         #+ppc32-target
    2073         (or (= ,typecode ppc32::tag-fixnum)
    2074          (and (>= ,typecode ppc32::min-numeric-subtag)
    2075           (<= ,typecode ppc32::max-real-subtag)))
     2072        #+(or ppc32-target x8632-target)
     2073        (or (= ,typecode target::tag-fixnum)
     2074         (and (>= ,typecode target::min-numeric-subtag)
     2075          (<= ,typecode target::max-real-subtag)))
    20762076        #+ppc64-target
    20772077        (if (<= ,typecode ppc64::subtag-double-float)
Note: See TracChangeset for help on using the changeset viewer.