From 9ffd24e689ab195da37d6bd797142e8f869dda0c Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 3 Nov 1990 03:07:41 +0000 Subject: [PATCH] Added exports for tn constructors and other functions needed by the vm specific files. Changed references to *sc-names* etc to slot accessors of *backend*. --- compiler/tn.lisp | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) diff --git a/compiler/tn.lisp b/compiler/tn.lisp index d29b06661..90e33dbb9 100644 --- a/compiler/tn.lisp +++ b/compiler/tn.lisp @@ -14,6 +14,12 @@ ;;; (in-package 'c) +(export '(make-normal-tn make-representation-tn make-wired-tn + make-restricted-tn environment-live-tn + environment-debug-live-tn component-live-tn specify-save-tn + make-constant-tn make-alias-tn make-load-time-constant-tn + make-n-tns location= tn-value force-tn-to-stack)) + ;;; The component that is currently being compiled. TNs are allocated in this ;;; component. ;;; @@ -93,7 +99,8 @@ (declare (type primitive-type ptype) (type sc-number scn)) (let* ((component (component-info *compile-component*)) (res (make-tn (incf (ir2-component-global-tn-counter component)) - :normal ptype (svref *sc-numbers* scn)))) + :normal ptype + (svref (backend-sc-numbers *backend*) scn)))) (push-in tn-next res (ir2-component-normal-tns component)) res)) @@ -110,7 +117,8 @@ (type sc-number scn) (type unsigned-byte offset)) (let* ((component (component-info *compile-component*)) (res (make-tn (incf (ir2-component-global-tn-counter component)) - :normal ptype (svref *sc-numbers* scn)))) + :normal ptype + (svref (backend-sc-numbers *backend*) scn)))) (setf (tn-offset res) offset) (push-in tn-next res (ir2-component-wired-tns component)) res)) @@ -125,7 +133,8 @@ (declare (type (or primitive-type null) ptype) (type sc-number scn)) (let* ((component (component-info *compile-component*)) (res (make-tn (incf (ir2-component-global-tn-counter component)) - :normal ptype (svref *sc-numbers* scn)))) + :normal ptype + (svref (backend-sc-numbers *backend*) scn)))) (push-in tn-next res (ir2-component-restricted-tns component)) res)) @@ -193,7 +202,8 @@ (declare (type constant constant)) (let* ((component (component-info *compile-component*)) (immed (immediate-constant-sc (constant-value constant))) - (sc (svref *sc-numbers* (or immed (sc-number-or-lose 'constant)))) + (sc (svref (backend-sc-numbers *backend*) + (or immed (sc-number-or-lose 'constant)))) (res (make-tn 0 :constant (primitive-type (leaf-type constant)) sc))) (unless immed (let ((constants (ir2-component-constants component))) @@ -228,8 +238,9 @@ (defun make-load-time-constant-tn (kind info) (declare (type keyword kind)) (let* ((component (component-info *compile-component*)) - (res (make-tn 0 :constant *any-primitive-type* - (svref *sc-numbers* (sc-number-or-lose 'constant)))) + (res (make-tn 0 :constant (backend-any-primitive-type *backend*) + (svref (backend-sc-numbers *backend*) + (sc-number-or-lose 'constant)))) (constants (ir2-component-constants component))) (do ((i 0 (1+ i))) -- GitLab