-;;; If standard is true, then use the standard (full call) location,
-;;; otherwise use any legal location.
-;;;
-;;; No problems.
-#+nil
-(def-vm-support-routine make-return-pc-passing-location (standard)
- (let ((ptype (primitive-type-or-lose 'system-area-pointer)))
- (if standard
- (make-wired-tn ptype sap-stack-sc-number return-pc-save-offset)
- (make-normal-tn ptype))))
-
-;;; Similar to Make-Return-PC-Passing-Location, but makes a location to pass
-;;; Old-FP in.
-;;;
-;;; This is wired in both the standard and the local-call
-;;; conventions, because we want to be able to assume it's always there.
-;;; Besides, the x86 doesn't have enough registers to really make it
-;;; profitable to pass it in a register.