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