diff --git a/compiler/old-rt/call.lisp b/compiler/old-rt/call.lisp index db210f9b5d65e9e5266265e1d943cc1f420a2a27..678b66c24d0f4d475a89110576bcd59ec12ca74a 100644 --- a/compiler/old-rt/call.lisp +++ b/compiler/old-rt/call.lisp @@ -92,6 +92,28 @@ (make-restricted-tn *any-primitive-type* register-arg-scn))) +;;; MAKE-STACK-POINTER-TN () +;;; +(defun make-stack-pointer-tn () + (make-normal-tn *any-primitive-type*)) + + +;;; MAKE-NUMBER-STACK-POINTER-TN () +;;; +(defun make-number-stack-pointer-tn () + (make-normal-tn *any-primitive-type*)) + + +;;; Make-Unknown-Values-Locations -- Interface +;;; +;;; Return a list of TNs that can be used to represent an unknown-values +;;; continuation within a function. +;;; +(defun make-unknown-values-locations () + (list (make-stack-pointer-tn) + (make-normal-tn *any-primitive-type*))) + + ;;; Select-Component-Format -- Interface ;;; ;;; This function is called by the Entry-Analyze phase, allowing