(declare (ignore standard))
(make-wired-tn (primitive-type-or-lose 'system-area-pointer)
sap-stack-sc-number return-pc-save-offset))
(declare (ignore standard))
(make-wired-tn (primitive-type-or-lose 'system-area-pointer)
sap-stack-sc-number return-pc-save-offset))
(make-normal-tn *fixnum-primitive-type*)))
;;; Make the TNs used to hold Old-FP and Return-PC within the current
(make-normal-tn *fixnum-primitive-type*)))
;;; Make the TNs used to hold Old-FP and Return-PC within the current
;;;
;;; Without using a save-tn - which does not make much sense if it is
;;; wire to the stack? No problems.
(!def-vm-support-routine make-old-fp-save-location (env)
;;;
;;; Without using a save-tn - which does not make much sense if it is
;;; wire to the stack? No problems.
(!def-vm-support-routine make-old-fp-save-location (env)
(make-wired-tn *fixnum-primitive-type* control-stack-sc-number
ocfp-save-offset)))
;;; Without using a save-tn - which does not make much sense if it is
;;; wire to the stack? No problems.
(!def-vm-support-routine make-return-pc-save-location (env)
(make-wired-tn *fixnum-primitive-type* control-stack-sc-number
ocfp-save-offset)))
;;; Without using a save-tn - which does not make much sense if it is
;;; wire to the stack? No problems.
(!def-vm-support-routine make-return-pc-save-location (env)
(make-wired-tn (primitive-type-or-lose 'system-area-pointer)
sap-stack-sc-number return-pc-save-offset)
env))
(make-wired-tn (primitive-type-or-lose 'system-area-pointer)
sap-stack-sc-number return-pc-save-offset)
env))
(!def-vm-support-routine make-return-pc-save-location (env)
(let ((ptype (primitive-type-or-lose 'system-area-pointer)))
(specify-save-tn
(!def-vm-support-routine make-return-pc-save-location (env)
(let ((ptype (primitive-type-or-lose 'system-area-pointer)))
(specify-save-tn
(make-wired-tn ptype sap-stack-sc-number return-pc-save-offset))))
;;; Make a TN for the standard argument count passing location. We only
(make-wired-tn ptype sap-stack-sc-number return-pc-save-offset))))
;;; Make a TN for the standard argument count passing location. We only