((base-char-stack) (base-char-reg))
(let ((nfp (current-nfp-tn vop)))
(loadw y nfp (tn-offset x))))
((base-char-stack) (base-char-reg))
(let ((nfp (current-nfp-tn vop)))
(loadw y nfp (tn-offset x))))
((sap-stack) (sap-reg)
(signed-stack) (signed-reg)
(unsigned-stack) (unsigned-reg))
(let ((nfp (current-nfp-tn vop)))
(loadq y nfp (tn-offset x))))
((sap-stack) (sap-reg)
(signed-stack) (signed-reg)
(unsigned-stack) (unsigned-reg))
(let ((nfp (current-nfp-tn vop)))
(loadq y nfp (tn-offset x))))
((base-char-reg) (base-char-stack))
(let ((nfp (current-nfp-tn vop)))
(storew x nfp (tn-offset y))))
((base-char-reg) (base-char-stack))
(let ((nfp (current-nfp-tn vop)))
(storew x nfp (tn-offset y))))
((sap-reg) (sap-stack)
(signed-reg) (signed-stack)
(unsigned-reg) (unsigned-stack))
(let ((nfp (current-nfp-tn vop)))
(storeq x nfp (tn-offset y))))
\f
((sap-reg) (sap-stack)
(signed-reg) (signed-stack)
(unsigned-reg) (unsigned-stack))
(let ((nfp (current-nfp-tn vop)))
(storeq x nfp (tn-offset y))))
\f
;;; doesn't think it is a hairy type. This also allows checking of a
;;; few of the values in a continuation to fall out.
(primitive-type-vop move (:check) t)
;;; doesn't think it is a hairy type. This also allows checking of a
;;; few of the values in a continuation to fall out.
(primitive-type-vop move (:check) t)
(signed-reg unsigned-reg) (signed-reg unsigned-reg))
;;; Move untagged number arguments/return-values.
(signed-reg unsigned-reg) (signed-reg unsigned-reg))
;;; Move untagged number arguments/return-values.