Changeset 709

Timestamp:

Mar 24, 2004, 6:34:38 AM (17 years ago)

Author:

gb

Message:

Skip the alignment bytes when reading a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).

File:

• trunk/ccl/level-0/nfasload.lisp (modified) (1 diff)

trunk/ccl/level-0/nfasload.lisp

@@ -375 +375 @@
          (element-count (%fasl-read-size s))
          (size-in-bytes (subtag-bytes subtag element-count))
-         (vector (%alloc-misc element-count subtag)))
+         (vector (%alloc-misc element-count subtag))
+         (byte-offset (or #+ppc32-target (if (= subtag ppc32::subtag-double-float-vector) 4) 0)))
     (declare (fixnum subtag element-count size-in-bytes))
     (%epushval s vector)
-    (%fasl-read-n-bytes s vector 0 size-in-bytes)
+    (%fasl-read-n-bytes s vector byte-offset size-in-bytes)
     (when (= subtag ppc32::subtag-code-vector)
       (%make-code-executable vector))