Changeset 7875 for branches/ia32/level-0

Timestamp:

Dec 11, 2007, 1:10:50 AM (13 years ago)

Author:

rme

Message:

x8632 changes

Location:

branches/ia32/level-0

Files:

• l0-numbers.lisp (modified) (7 diffs)
• l0-utils.lisp (modified) (1 diff)

branches/ia32/level-0/l0-numbers.lisp

@@ -467 +467 @@
   (if (and (eq int 0)(= sfloat 0.0s0))
     0
-    (#+32-bit-target ppc32::with-stack-short-floats #+32-bit-target ((s1 int))
+    (#+32-bit-target target::with-stack-short-floats #+32-bit-target ((s1 int))
      #-32-bit-target let* #-32-bit-target ((s1 (%int-to-sfloat int)))
                      (locally
@@ -1067 +1067 @@
                      (%double-float--2 fnum (%double-float*-2! (%double-float res f2) ,divisor f2))))))
        (truncate-rat-sfloat (number divisor)
-         #+ppc32-target
-         `(ppc32::with-stack-short-floats ((fnum ,number)
+         #+32-bit-target
+         `(target::with-stack-short-floats ((fnum ,number)
                                            (f2))
            (let ((res (%unary-truncate (%short-float/-2! fnum ,divisor f2))))
@@ -1117 +1117 @@
                      (number-case divisor
                        (short-float
-                        #+ppc32-target
-                        (ppc32::with-stack-short-floats ((f2))
+                        #+32-bit-target
+                        (target::with-stack-short-floats ((f2))
                           (let ((res (%unary-truncate (%short-float/-2! number divisor f2))))
                             (values res 
@@ -1133 +1133 @@
                                           (the short-float divisor))))))
                        ((fixnum bignum ratio)
-                        #+ppc32-target
-                        (ppc32::with-stack-short-floats ((fdiv divisor)
+                        #+32-bit-target
+                        (target::with-stack-short-floats ((fdiv divisor)
                                                          (f2))
                           (let ((res (%unary-truncate (%short-float/-2! number fdiv f2))))
@@ -1192 +1192 @@
          (%unary-truncate (%double-float/-2! fnum ,divisor f2))))
      (truncate-rat-sfloat (number divisor)
-       #+ppc32-target
-       `(ppc32::with-stack-short-floats ((fnum ,number)
+       #+32-bit-target
+       `(target::with-stack-short-floats ((fnum ,number)
                                       (f2))
          (%unary-truncate (%short-float/-2! fnum ,divisor f2)))
@@ -1251 +1251 @@
                     (number-case divisor
                       ((fixnum bignum ratio)
-                       #+ppc32-target
-                       (ppc32::with-stack-short-floats ((fdiv divisor)
+                       #+32-bit-target
+                       (target::with-stack-short-floats ((fdiv divisor)
                                                  (f2))
                          (let ((res (%unary-truncate (%short-float/-2! number fdiv f2))))
@@ -1260 +1260 @@
                                            (the short-float (%short-float divisor)))))
                       (short-float
-                       #+ppc32-target
-                       (ppc32::with-stack-short-floats ((ddiv divisor)
+                       #+32-bit-target
+                       (target::with-stack-short-floats ((ddiv divisor)
                                                       (f2))
                          (%unary-truncate (%short-float/-2! number ddiv f2)))

branches/ia32/level-0/l0-utils.lisp

@@ -78 +78 @@
 
 (eval-when (:compile-toplevel :execute)
-  #+ppc32-target
+  #+32-bit-target
   (defmacro need-use-eql-macro (key)
     `(let* ((typecode (typecode ,key)))
        (declare (fixnum typecode))
-       (or (= typecode ppc32::subtag-macptr)
-           (and (>= typecode ppc32::min-numeric-subtag)
-                (<= typecode ppc32::max-numeric-subtag)))))
+       (or (= typecode target::subtag-macptr)
+           (and (>= typecode target::min-numeric-subtag)
+                (<= typecode target::max-numeric-subtag)))))
   #+64-bit-target
   (defmacro need-use-eql-macro (key)