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