Changeset 16367


Ignore:
Timestamp:
Apr 20, 2015, 7:24:04 PM (4 years ago)
Author:
gb
Message:

%UVECTOR-REPLACE handle vectors of (COMPLEX-FLOAT)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-array.lisp

    r16085 r16367  
    481481        #+64-bit-target #.target::subtag-s64-vector
    482482        #+64-bit-target #.target::subtag-u64-vector
    483         #+64-bit-target #.target::subtag-fixnum-vector)
     483        #+64-bit-target #.target::subtag-fixnum-vector
     484        #.target::subtag-complex-single-float-vector)
    484485       (%copy-ivector-to-ivector source
    485486                                 (the fixnum
     
    492493                                                     target::misc-data-offset))
    493494                                      (the fixnum (* target-start 8))))
    494                                  (the fixnum (* n 8))))))
     495                                 (the fixnum (* n 8))))
     496      (#.target::complex-double-float-vector
     497        (%copy-ivector-to-ivector source
     498                                 (the fixnum
     499                                   (+ (the fixnum (- target::misc-dfloat-offset
     500                                                     target::misc-data-offset))
     501                                      (the fixnum (* source-start 16))))
     502                                 target
     503                                 (the fixnum
     504                                   (+ (the fixnum (- target::misc-dfloat-offset
     505                                                     target::misc-data-offset))
     506                                      (the fixnum (* target-start 16))))
     507                                 (the fixnum (* n 16)))))
    495508  target)
    496509
Note: See TracChangeset for help on using the changeset viewer.