Changeset 8215

Timestamp:

Jan 17, 2008, 11:10:56 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Conditionalize on 32-bit-target instead of ppc32-target in a couple places.

File:

• branches/ia32/level-0/nfasload.lisp (modified) (2 diffs)

branches/ia32/level-0/nfasload.lisp

@@ -503 +503 @@
          (size-in-bytes (subtag-bytes subtag element-count))
          (vector (%alloc-misc element-count subtag))
-         (byte-offset (or #+ppc32-target (if (= subtag ppc32::subtag-double-float-vector) 4) 0)))
+         (byte-offset (or #+32-bit-target (if (= subtag target::subtag-double-float-vector) 4) 0)))
     (declare (fixnum subtag element-count size-in-bytes))
     (%epushval s vector)
@@ -563 +563 @@
   #+64-bit-target
   (fasl-read-ivector s target::subtag-double-float-vector)
-  #+ppc32-target
+  #+32-bit-target
   (let* ((element-count (%fasl-read-count s))
-         (size-in-bytes (subtag-bytes ppc32::subtag-double-float-vector
+         (size-in-bytes (subtag-bytes target::subtag-double-float-vector
                                       element-count))
          (vector (%alloc-misc element-count
-                              ppc32::subtag-double-float-vector)))
+                              target::subtag-double-float-vector)))
     (declare (fixnum subtag element-count size-in-bytes))
     (%epushval s vector)
-    (%fasl-read-n-bytes s vector (- ppc32::misc-dfloat-offset
-                                    ppc32::misc-data-offset)
+    (%fasl-read-n-bytes s vector (- target::misc-dfloat-offset
+                                    target::misc-data-offset)
                         size-in-bytes)
     vector))