Changeset 16806


Ignore:
Timestamp:
Dec 30, 2016, 7:21:29 PM (3 years ago)
Author:
rme
Message:

Correct scaling on x8664 when indexing complex double-float vectors

Closes ticket:1398

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x862.lisp

    r16787 r16806  
    29352935                  (unless unscaled-idx
    29362936                    (setq unscaled-idx ($ *x862-arg-y*)))
    2937                   (x862-absolute-natural seg unscaled-idx nil (ash index-known-fixnum (target-word-size-case (32 2) (64 1)))))
     2937                  (x862-absolute-natural seg unscaled-idx nil (ash index-known-fixnum (target-word-size-case (32 2) (64 3)))))
    29382938                (! misc-set-complex-double-float unboxed-val-reg src unscaled-idx))
    29392939               (is-64-bit
Note: See TracChangeset for help on using the changeset viewer.