Skip to content
Snippets Groups Projects
Commit b21e1711 authored by rtoy's avatar rtoy
Browse files

* 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.
parent 76125c51
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
;; 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")
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment