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 @@ ...@@ -5,11 +5,11 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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") (in-package "SPARC")
...@@ -32,7 +32,7 @@ ...@@ -32,7 +32,7 @@
(:temp count any-reg nl2-offset) (:temp count any-reg nl2-offset)
(:temp src any-reg nl3-offset) (:temp src any-reg nl3-offset)
(:temp dst any-reg nl4-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. ;; These are needed so we can get at the register args.
(:temp a0 descriptor-reg a0-offset) (:temp a0 descriptor-reg a0-offset)
...@@ -120,7 +120,7 @@ ...@@ -120,7 +120,7 @@
(:temp src any-reg nl1-offset) (:temp src any-reg nl1-offset)
(:temp dst any-reg nl2-offset) (:temp dst any-reg nl2-offset)
(:temp count any-reg nl3-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. ;; These are needed so we can get at the register args.
(:temp a0 descriptor-reg a0-offset) (: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 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 ...@@ -1110,7 +1110,7 @@ default-value-8
(:temporary (:sc any-reg :offset nl1-offset) count) (:temporary (:sc any-reg :offset nl1-offset) count)
(:temporary (:sc any-reg :offset nl2-offset) src) (:temporary (:sc any-reg :offset nl2-offset) src)
(:temporary (:sc any-reg :offset nl3-offset) dst) (: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) (:info fixed)
(:generator 20 (:generator 20
(let ((loop (gen-label)) (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