From b21e1711add0c9fb55d4be44710374e3a716b046 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 11 Feb 2005 21:02:34 +0000
Subject: [PATCH] * assembly/sparc/assem-rtns.lisp, compiler/sparc/call.lisp:  
 o Oops.  L0 was still in use so replace them with another descriptor    
 register.

* boot-2005-02-1-sparc.lisp
  o Use this to bootstrap this.  A cross-compile is needed because
    some assembly routines have changed.
---
 assembly/sparc/assem-rtns.lisp          | 8 ++++----
 bootfiles/19a/boot-2005-02-1-sparc.lisp | 5 +++++
 compiler/sparc/call.lisp                | 4 ++--
 3 files changed, 11 insertions(+), 6 deletions(-)
 create mode 100644 bootfiles/19a/boot-2005-02-1-sparc.lisp

diff --git a/assembly/sparc/assem-rtns.lisp b/assembly/sparc/assem-rtns.lisp
index 89d3a008e..63a2a4526 100644
--- a/assembly/sparc/assem-rtns.lisp
+++ b/assembly/sparc/assem-rtns.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/assem-rtns.lisp,v 1.3 2003/08/03 11:27:50 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/assem-rtns.lisp,v 1.4 2005/02/11 21:02:32 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/assem-rtns.lisp,v 1.3 2003/08/03 11:27:50 gerd Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/sparc/assem-rtns.lisp,v 1.4 2005/02/11 21:02:32 rtoy Rel $
 ;;;
 ;;;
 (in-package "SPARC")
@@ -32,7 +32,7 @@
      (:temp count any-reg nl2-offset)
      (:temp src any-reg nl3-offset)
      (:temp dst any-reg nl4-offset)
-     (:temp temp descriptor-reg l0-offset)
+     (:temp temp descriptor-reg cname-offset)
 
      ;; These are needed so we can get at the register args.
      (:temp a0 descriptor-reg a0-offset)
@@ -120,7 +120,7 @@
      (:temp src any-reg nl1-offset)
      (:temp dst any-reg nl2-offset)
      (:temp count any-reg nl3-offset)
-     (:temp temp descriptor-reg l0-offset)
+     (:temp temp descriptor-reg cname-offset)
 
      ;; These are needed so we can get at the register args.
      (:temp a0 descriptor-reg a0-offset)
diff --git a/bootfiles/19a/boot-2005-02-1-sparc.lisp b/bootfiles/19a/boot-2005-02-1-sparc.lisp
new file mode 100644
index 000000000..1a24e1a5e
--- /dev/null
+++ b/bootfiles/19a/boot-2005-02-1-sparc.lisp
@@ -0,0 +1,5 @@
+;; Cross-compile bootfile used to change the gtemp register from %g7
+;; (reserved) to reg l0.  L0 is no longer used by Lisp for anything.
+
+;; Don't need anything special, so the default sample script is ok.
+(load "target:tools/cross-scripts/cross-sparc-sparc")
diff --git a/compiler/sparc/call.lisp b/compiler/sparc/call.lisp
index a2d6c294a..ab94d6811 100644
--- a/compiler/sparc/call.lisp
+++ b/compiler/sparc/call.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/sparc/call.lisp,v 1.37 2004/04/16 04:49:25 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.38 2005/02/11 21:02:34 rtoy Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1110,7 +1110,7 @@ default-value-8
   (:temporary (:sc any-reg :offset nl1-offset) count)
   (:temporary (:sc any-reg :offset nl2-offset) src)
   (:temporary (:sc any-reg :offset nl3-offset) dst)
-  (:temporary (:sc descriptor-reg :offset l0-offset) temp)
+  (:temporary (:sc descriptor-reg :offset cname-offset) temp)
   (:info fixed)
   (:generator 20
     (let ((loop (gen-label))
-- 
GitLab