Changeset 709


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/nfasload.lisp

    r183 r709  
    375375         (element-count (%fasl-read-size s))
    376376         (size-in-bytes (subtag-bytes subtag element-count))
    377          (vector (%alloc-misc element-count subtag)))
     377         (vector (%alloc-misc element-count subtag))
     378         (byte-offset (or #+ppc32-target (if (= subtag ppc32::subtag-double-float-vector) 4) 0)))
    378379    (declare (fixnum subtag element-count size-in-bytes))
    379380    (%epushval s vector)
    380     (%fasl-read-n-bytes s vector 0 size-in-bytes)
     381    (%fasl-read-n-bytes s vector byte-offset size-in-bytes)
    381382    (when (= subtag ppc32::subtag-code-vector)
    382383      (%make-code-executable vector))
Note: See TracChangeset for help on using the changeset viewer.