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

gengc mods

parent 847a3520
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/code/lispinit.lisp,v 1.34 1993/02/26 08:25:45 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.35 1993/05/22 14:01:25 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -44,12 +44,17 @@ ...@@ -44,12 +44,17 @@
;;; Must be initialized in %INITIAL-FUNCTION before the DEFVAR runs... ;;; Must be initialized in %INITIAL-FUNCTION before the DEFVAR runs...
(proclaim '(special *gc-inhibit* *already-maybe-gcing* (declaim
*need-to-collect-garbage* *gc-verbose* #-gengc
*before-gc-hooks* *after-gc-hooks* (special *gc-inhibit* *already-maybe-gcing*
unix::*interrupts-enabled* *need-to-collect-garbage* *gc-verbose*
unix::*interrupt-pending* *before-gc-hooks* *after-gc-hooks*
*type-system-initialized*)) unix::*interrupts-enabled*
unix::*interrupt-pending*
*type-system-initialized*)
#+gengc
(special *gc-verbose* *before-gc-hooks* *after-gc-hooks*
*type-system-initialized*))
;;;; Random magic specials. ;;;; Random magic specials.
...@@ -57,10 +62,14 @@ ...@@ -57,10 +62,14 @@
;;; These are filled in by Genesis. ;;; These are filled in by Genesis.
#-gengc
(progn
(defvar *current-catch-block*) (defvar *current-catch-block*)
(defvar *current-unwind-block*) (defvar *current-unwind-block*)
(defvar *free-interrupt-context-index*) (defvar *free-interrupt-context-index*)
); #-gengc progn
;;; %Initial-Function is called when a cold system starts up. First we zoom ;;; %Initial-Function is called when a cold system starts up. First we zoom
...@@ -82,14 +91,14 @@ ...@@ -82,14 +91,14 @@
(defun %initial-function () (defun %initial-function ()
"Gives the world a shove and hopes it spins." "Gives the world a shove and hopes it spins."
(setf *already-maybe-gcing* t) #-gengc (setf *already-maybe-gcing* t)
(setf *gc-inhibit* t) #-gengc (setf *gc-inhibit* t)
(setf *need-to-collect-garbage* nil) #-gengc (setf *need-to-collect-garbage* nil)
(setf *gc-verbose* t) (setf *gc-verbose* #-gengc t #+gengc nil)
(setf *before-gc-hooks* nil) (setf *before-gc-hooks* nil)
(setf *after-gc-hooks* nil) (setf *after-gc-hooks* nil)
(setf unix::*interrupts-enabled* t) #-gengc (setf unix::*interrupts-enabled* t)
(setf unix::*interrupt-pending* nil) #-gengc (setf unix::*interrupt-pending* nil)
(setf *type-system-initialized* nil) (setf *type-system-initialized* nil)
(%primitive print "In initial-function, and running.") (%primitive print "In initial-function, and running.")
...@@ -159,7 +168,8 @@ ...@@ -159,7 +168,8 @@
(%primitive print "Done initializing.") (%primitive print "Done initializing.")
(setf *already-maybe-gcing* nil) #-gengc (setf *already-maybe-gcing* nil)
#+gengc (setf *gc-verbose* t)
(terpri) (terpri)
(princ "CMU Common Lisp kernel core image ") (princ "CMU Common Lisp kernel core image ")
(princ (lisp-implementation-version)) (princ (lisp-implementation-version))
......
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