From ca5118f2a13cdb21f21ec5fae44c69a884b7f5ed Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 19 Apr 1990 14:18:36 +0000
Subject: [PATCH] number-stack => non-descriptor-stack Added CALLEE-NFP-TN and
 CALLEE-RETURN-PC-TN.

---
 compiler/codegen.lisp | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/compiler/codegen.lisp b/compiler/codegen.lisp
index b170f1384..281257a43 100644
--- a/compiler/codegen.lisp
+++ b/compiler/codegen.lisp
@@ -31,7 +31,7 @@
 (defun current-nfp-tn (vop)
   "Return the TN that is used to hold the number stack frame-pointer in VOP's
   function.  Returns NIL if no number stack frame was allocated."
-  (unless (zerop (sb-allocated-size 'number-stack))
+  (unless (zerop (sb-allocated-size 'non-descriptor-stack))
     (let ((block (ir2-block-block (vop-block vop))))
     (when (ir2-environment-number-stack-p
 	   (environment-info
@@ -39,6 +39,25 @@
 	     (block-lambda block))))
       (ir2-component-nfp (component-info (block-component block)))))))
 
+
+;;; CALLEE-NFP-TN  --  Interface
+;;;
+(defun callee-nfp-tn (2env)
+  "Return the TN that is used to hold the number stack frame-pointer in the
+  function designated by 2env.  Returns NIL if no number stack frame was
+  allocated."
+  (unless (zerop (sb-allocated-size 'non-descriptor-stack))
+    (when (ir2-environment-number-stack-p 2env)
+      (ir2-component-nfp (component-info *compile-component*)))))
+
+
+;;; CALLEE-RETURN-PC-TN  --  Interface
+;;;
+(defun callee-return-pc-tn (2env)
+  "Return the TN used for passing the return PC in a local call to the function
+  designated by 2env."
+  (ir2-environment-return-pc-pass 2env))
+
 
 ;;; Generate-Code  --  Interface
 ;;;
-- 
GitLab