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