Skip to content
Snippets Groups Projects
Commit ca5118f2 authored by ram's avatar ram
Browse files

number-stack => non-descriptor-stack

Added CALLEE-NFP-TN and CALLEE-RETURN-PC-TN.
parent 890821d3
No related branches found
No related tags found
No related merge requests found
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
(defun current-nfp-tn (vop) (defun current-nfp-tn (vop)
"Return the TN that is used to hold the number stack frame-pointer in VOP's "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." 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)))) (let ((block (ir2-block-block (vop-block vop))))
(when (ir2-environment-number-stack-p (when (ir2-environment-number-stack-p
(environment-info (environment-info
...@@ -39,6 +39,25 @@ ...@@ -39,6 +39,25 @@
(block-lambda block)))) (block-lambda block))))
(ir2-component-nfp (component-info (block-component 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 ;;; Generate-Code -- Interface
;;; ;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment