From aca4a938432b3fde6fe61bd946a0f7fd3abedb9b Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 20 Jun 1990 13:57:04 +0000
Subject: [PATCH] Added MAKE-xxx-STACK-POINTER-TN functions and moved
 MAKE-UNKNOWN-VALUES-LOCATIONS here from ltn.

---
 compiler/old-rt/call.lisp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/compiler/old-rt/call.lisp b/compiler/old-rt/call.lisp
index db210f9b5..678b66c24 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
-- 
GitLab