Fix two buglets in MAKE-EA-FOR-FLOAT-REF.
(immediate
(make-ea :dword :base object
:disp (- (+ (* vector-data-offset n-word-bytes)
(immediate
(make-ea :dword :base object
:disp (- (+ (* vector-data-offset n-word-bytes)
- (* element-size (+ offset complex-offset
- (tn-value index)))
- other-pointer-lowtag))))
+ (* element-size (+ offset (tn-value index)))
+ complex-offset)
+ other-pointer-lowtag)))
(t
(make-ea :dword :base object :index index :scale scale
:disp (- (+ (* vector-data-offset n-word-bytes)
(t
(make-ea :dword :base object :index index :scale scale
:disp (- (+ (* vector-data-offset n-word-bytes)
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)