((double-stack) (double-reg))
(let ((nfp (current-nfp-tn vop))
(offset (* (tn-offset x) n-word-bytes)))
(inst ldt y offset nfp)))
((double-stack) (double-reg))
(let ((nfp (current-nfp-tn vop))
(offset (* (tn-offset x) n-word-bytes)))
(inst ldt y offset nfp)))