Changeset 708

Timestamp:

Mar 23, 2004, 10:33:39 PM (21 years ago)

Author:

Gary Byers

Message:

Skip the alignment bytes when writing a (SIMPLE-ARRAY DOUBLE-FLOAT (*)), but
don't act as if they were included in the value returned by SUBTAG-BYTES.

File:

• trunk/ccl/lib/nfcomp.lisp (modified) (1 diff)

trunk/ccl/lib/nfcomp.lisp

@@ -1197 +1197 @@
              (if (= typecode ppc32::subtag-double-float-vector)
                ; Account for alignment word
-               (fasl-out-ivect exp 4 (the fixnum (- nb 4)))
+               (fasl-out-ivect exp 4 nb)
                (if (= out-typecode ppc32::subtag-code-vector)
                  (fasl-out-codevector exp nb)