From c4cb4d7e12fad5db92b3229acffa99563b974a09 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 6 Jun 1990 14:51:56 +0000 Subject: [PATCH] Added back primitive-type args to TN constructors. --- compiler/old-rt/call.lisp | 20 +++++++++++--------- compiler/old-rt/nlx.lisp | 4 +++- 2 files changed, 14 insertions(+), 10 deletions(-) diff --git a/compiler/old-rt/call.lisp b/compiler/old-rt/call.lisp index dedeb62e2..db210f9b5 100644 --- a/compiler/old-rt/call.lisp +++ b/compiler/old-rt/call.lisp @@ -24,8 +24,9 @@ (defun standard-argument-location (n) (declare (type unsigned-byte n)) (if (< n register-arg-count) - (make-wired-tn register-arg-scn (elt register-arg-offsets n)) - (make-wired-tn stack-arg-scn n))) + (make-wired-tn *any-primitive-type* + register-arg-scn (elt register-arg-offsets n)) + (make-wired-tn *any-primitive-type* stack-arg-scn n))) ;;; Make-Return-PC-Passing-Location -- Interface @@ -37,8 +38,8 @@ ;;; (defun make-return-pc-passing-location (standard) (if standard - (make-wired-tn register-arg-scn return-pc-offset) - (make-restricted-tn register-arg-scn))) + (make-wired-tn *any-primitive-type* register-arg-scn return-pc-offset) + (make-restricted-tn *any-primitive-type* register-arg-scn))) ;;; Make-Old-Fp-Passing-Location -- Interface @@ -50,7 +51,7 @@ ;;; (defun make-old-fp-passing-location (standard) (if standard - (make-wired-tn register-arg-scn old-fp-offset) + (make-wired-tn *any-primitive-type* register-arg-scn old-fp-offset) (make-normal-tn *any-primitive-type*))) @@ -62,12 +63,12 @@ ;;; (defun make-old-fp-save-location (env) (environment-live-tn - (make-wired-tn stack-arg-scn old-fp-save-offset) + (make-wired-tn *any-primitive-type* stack-arg-scn old-fp-save-offset) env)) ;;; (defun make-return-pc-save-location (env) (environment-live-tn - (make-wired-tn stack-arg-scn return-pc-save-offset) + (make-wired-tn *any-primitive-type* stack-arg-scn return-pc-save-offset) env)) @@ -78,7 +79,7 @@ ;;; are using non-standard conventions. ;;; (defun make-argument-count-location () - (make-wired-tn register-arg-scn argument-count-offset)) + (make-wired-tn *any-primitive-type* register-arg-scn argument-count-offset)) ;;; MAKE-NFP-TN -- Interface @@ -87,7 +88,8 @@ ;;; once per component, and is component-live. ;;; (defun make-nfp-tn () - (component-live-tn (make-restricted-tn register-arg-scn))) + (component-live-tn + (make-restricted-tn *any-primitive-type* register-arg-scn))) ;;; Select-Component-Format -- Interface diff --git a/compiler/old-rt/nlx.lisp b/compiler/old-rt/nlx.lisp index b7453682a..93dacbfe2 100644 --- a/compiler/old-rt/nlx.lisp +++ b/compiler/old-rt/nlx.lisp @@ -20,7 +20,9 @@ ;;; Make an environment-live stack TN for saving the SP for NLX entry. ;;; (defun make-nlx-sp-tn (env) - (environment-live-tn (make-representation-tn stack-arg-scn) env)) + (environment-live-tn + (make-representation-tn *any-primitive-type* stack-arg-scn) + env)) ;;; Save and restore dynamic environment. -- GitLab