Changeset 7875


Ignore:
Timestamp:
Dec 11, 2007, 1:10:50 AM (13 years ago)
Author:
rme
Message:

x8632 changes

Location:
branches/ia32/level-0
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/l0-numbers.lisp

    r7362 r7875  
    467467  (if (and (eq int 0)(= sfloat 0.0s0))
    468468    0
    469     (#+32-bit-target ppc32::with-stack-short-floats #+32-bit-target ((s1 int))
     469    (#+32-bit-target target::with-stack-short-floats #+32-bit-target ((s1 int))
    470470     #-32-bit-target let* #-32-bit-target ((s1 (%int-to-sfloat int)))
    471471                     (locally
     
    10671067                     (%double-float--2 fnum (%double-float*-2! (%double-float res f2) ,divisor f2))))))
    10681068       (truncate-rat-sfloat (number divisor)
    1069          #+ppc32-target
    1070          `(ppc32::with-stack-short-floats ((fnum ,number)
     1069         #+32-bit-target
     1070         `(target::with-stack-short-floats ((fnum ,number)
    10711071                                           (f2))
    10721072           (let ((res (%unary-truncate (%short-float/-2! fnum ,divisor f2))))
     
    11171117                     (number-case divisor
    11181118                       (short-float
    1119                         #+ppc32-target
    1120                         (ppc32::with-stack-short-floats ((f2))
     1119                        #+32-bit-target
     1120                        (target::with-stack-short-floats ((f2))
    11211121                          (let ((res (%unary-truncate (%short-float/-2! number divisor f2))))
    11221122                            (values res
     
    11331133                                          (the short-float divisor))))))
    11341134                       ((fixnum bignum ratio)
    1135                         #+ppc32-target
    1136                         (ppc32::with-stack-short-floats ((fdiv divisor)
     1135                        #+32-bit-target
     1136                        (target::with-stack-short-floats ((fdiv divisor)
    11371137                                                         (f2))
    11381138                          (let ((res (%unary-truncate (%short-float/-2! number fdiv f2))))
     
    11921192         (%unary-truncate (%double-float/-2! fnum ,divisor f2))))
    11931193     (truncate-rat-sfloat (number divisor)
    1194        #+ppc32-target
    1195        `(ppc32::with-stack-short-floats ((fnum ,number)
     1194       #+32-bit-target
     1195       `(target::with-stack-short-floats ((fnum ,number)
    11961196                                      (f2))
    11971197         (%unary-truncate (%short-float/-2! fnum ,divisor f2)))
     
    12511251                    (number-case divisor
    12521252                      ((fixnum bignum ratio)
    1253                        #+ppc32-target
    1254                        (ppc32::with-stack-short-floats ((fdiv divisor)
     1253                       #+32-bit-target
     1254                       (target::with-stack-short-floats ((fdiv divisor)
    12551255                                                 (f2))
    12561256                         (let ((res (%unary-truncate (%short-float/-2! number fdiv f2))))
     
    12601260                                           (the short-float (%short-float divisor)))))
    12611261                      (short-float
    1262                        #+ppc32-target
    1263                        (ppc32::with-stack-short-floats ((ddiv divisor)
     1262                       #+32-bit-target
     1263                       (target::with-stack-short-floats ((ddiv divisor)
    12641264                                                      (f2))
    12651265                         (%unary-truncate (%short-float/-2! number ddiv f2)))
  • branches/ia32/level-0/l0-utils.lisp

    r6916 r7875  
    7878
    7979(eval-when (:compile-toplevel :execute)
    80   #+ppc32-target
     80  #+32-bit-target
    8181  (defmacro need-use-eql-macro (key)
    8282    `(let* ((typecode (typecode ,key)))
    8383       (declare (fixnum typecode))
    84        (or (= typecode ppc32::subtag-macptr)
    85            (and (>= typecode ppc32::min-numeric-subtag)
    86                 (<= typecode ppc32::max-numeric-subtag)))))
     84       (or (= typecode target::subtag-macptr)
     85           (and (>= typecode target::min-numeric-subtag)
     86                (<= typecode target::max-numeric-subtag)))))
    8787  #+64-bit-target
    8888  (defmacro need-use-eql-macro (key)
Note: See TracChangeset for help on using the changeset viewer.