Skip to content
Snippets Groups Projects
Commit dc938a52 authored by wlott's avatar wlott
Browse files

Changed sparcs to use new-genesis and new startup code.

parent 5794cf31
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.15 1992/07/28 22:13:07 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.16 1992/09/08 22:27:14 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -17,9 +17,7 @@ ...@@ -17,9 +17,7 @@
(in-package "LISP") (in-package "LISP")
(unless (fboundp 'genesis) (unless (fboundp 'genesis)
(if (c:target-featurep '(or :hppa :x86 :pmax)) (load "target:compiler/generic/new-genesis"))
(load "target:compiler/generic/new-genesis")
(load "target:compiler/generic/genesis")))
(defparameter lisp-files (defparameter lisp-files
`(,@(when (c:backend-featurep :pmax) `(,@(when (c:backend-featurep :pmax)
...@@ -30,7 +28,6 @@ ...@@ -30,7 +28,6 @@
,@(when (c:backend-featurep :sparc) ,@(when (c:backend-featurep :sparc)
'("target:assembly/sparc/assem-rtns.assem" '("target:assembly/sparc/assem-rtns.assem"
"target:assembly/sparc/array.assem" "target:assembly/sparc/array.assem"
"target:assembly/sparc/bit-bash.assem"
"target:assembly/sparc/arith.assem" "target:assembly/sparc/arith.assem"
"target:assembly/sparc/alloc.assem")) "target:assembly/sparc/alloc.assem"))
,@(when (c:backend-featurep :rt) ,@(when (c:backend-featurep :rt)
...@@ -128,19 +125,12 @@ ...@@ -128,19 +125,12 @@
"target:code/debug" "target:code/debug"
)) ))
(cond ((c:target-featurep '(or :hppa :x86 :pmax)) (if (c:target-featurep '(and :mach :sparc))
(setf *genesis-core-name* "target:lisp/kernel.core") (setf *genesis-core-name* "/usr/tmp/kernel.core")
(setf *genesis-c-header-name* "target:lisp/internals.h") (setf *genesis-core-name* "target:lisp/kernel.core"))
(setf *genesis-map-name* #+nil "target:lisp/kernel.map" nil) (setf *genesis-c-header-name* "target:lisp/internals.h")
(setf *genesis-symbol-table* "target:lisp/lisp.nm")) (setf *genesis-map-name* nil)
(t (setf *genesis-symbol-table* "target:lisp/lisp.nm")
(setf *genesis-core-name*
(if (c:backend-featurep '(and :sparc :mach))
"/usr/tmp/kernel.core"
"target:ldb/kernel.core"))
(setf *genesis-c-header-name* "target:ldb/lisp.h")
(setf *genesis-map-name* "target:ldb/lisp.map")
(setf *genesis-symbol-table* "target:ldb/ldb.map")))
(when (boundp '*target-page-size*) (when (boundp '*target-page-size*)
(locally (locally
......
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