(inst stdf value-real object offset)
(unless (location= result-real value-real)
(move-double-reg result-real value-real)))
(inst add offset offset (* 2 n-word-bytes))
(let ((value-imag (complex-double-reg-imag-tn value))
(inst stdf value-real object offset)
(unless (location= result-real value-real)
(move-double-reg result-real value-real)))
(inst add offset offset (* 2 n-word-bytes))
(let ((value-imag (complex-double-reg-imag-tn value))