(inst ldt y offset nfp)))
(define-move-function (store-double 2) (vop x y)
((double-reg) (double-stack))
(let ((nfp (current-nfp-tn vop))
(inst ldt y offset nfp)))
(define-move-function (store-double 2) (vop x y)
((double-reg) (double-stack))
(let ((nfp (current-nfp-tn vop))