From 709f56e2501af671bc17b99674400bec55f9a1d4 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Thu, 22 Jan 1998 00:04:20 +0000 Subject: [PATCH] Bring the sparc port inline the x86 ports usage of the new VM support function make-nlx-entry-argument-start-location - simplifies cross compiling. --- compiler/backend.lisp | 4 ++-- compiler/ir2tran.lisp | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/backend.lisp b/compiler/backend.lisp index 8b3f6ab4b..f5af2fc67 100644 --- a/compiler/backend.lisp +++ b/compiler/backend.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.29 1997/11/21 12:26:50 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.30 1998/01/22 00:04:18 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -85,7 +85,7 @@ ;; From NLX.LISP make-nlx-sp-tn make-dynamic-state-tns - #+x86 make-nlx-entry-argument-start-location + #+(or x86 sparc) make-nlx-entry-argument-start-location ;; From SUPPORT.LISP generate-call-sequence diff --git a/compiler/ir2tran.lisp b/compiler/ir2tran.lisp index 9e5f5bcaf..de7ca2682 100644 --- a/compiler/ir2tran.lisp +++ b/compiler/ir2tran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.63 1998/01/08 05:09:42 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.64 1998/01/22 00:04:20 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1607,8 +1607,8 @@ (2cont (continuation-info cont)) (2info (nlx-info-info info)) (top-loc (ir2-nlx-info-save-sp 2info)) - (start-loc #-x86 (make-old-fp-passing-location t) - #+x86 (make-nlx-entry-argument-start-location)) + (start-loc #-(or x86 sparc) (make-old-fp-passing-location t) + #+(or x86 sparc) (make-nlx-entry-argument-start-location)) (count-loc (make-argument-count-location)) (target (ir2-nlx-info-target 2info))) -- GitLab