Changeset 9782


Ignore:
Timestamp:
Jun 18, 2008, 2:17:53 AM (11 years ago)
Author:
rme
Message:

SIMPLE-1D-ARRAY-SUBSEQ: The story with double-float vectors on x8632
is exactly the same as on ppc32.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/lib/sequences.lisp

    r9147 r9782  
    169169                                   0
    170170                                   (the fixnum (ash n 2))))
    171         ;; DOUBLE-FLOAT vectors have extra alignment padding on ppc32.
    172         #+ppc32-target
    173         (#.ppc32::subtag-double-float-vector
     171        ;; DOUBLE-FLOAT vectors have extra alignment padding on ppc32/x8632.
     172        #+(or ppc32-target x8632-target)
     173        (#.target::subtag-double-float-vector
    174174         (%copy-ivector-to-ivector src
    175175                                   (the fixnum (+ (the fixnum (ash start 3))
    176                                                   (- ppc32::misc-dfloat-offset
    177                                                      ppc32::misc-data-offset)))
     176                                                  (- target::misc-dfloat-offset
     177                                                     target::misc-data-offset)))
    178178                                   dest
    179                                    (- ppc32::misc-dfloat-offset
    180                                                      ppc32::misc-data-offset)
     179                                   (- target::misc-dfloat-offset
     180                                                     target::misc-data-offset)
    181181                                   (the fixnum (ash n 3))))
    182182        #+64-bit-target
Note: See TracChangeset for help on using the changeset viewer.