diff --git a/assembly/sparc/assem-rtns.lisp b/assembly/sparc/assem-rtns.lisp index 89d3a008ecf6cda0e433ef2a08a6e0254857d07c..63a2a45264b3e96c6022b218718d36e0a7d06aab 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 0000000000000000000000000000000000000000..1a24e1a5ed2573e07f22a18bf5a50e613212d79c --- /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 a2d6c294a138871a735804514a6e424d2592a10b..ab94d6811f4012a01b6cd86d780c3509c48ee0f2 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))