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