From f6bc234f0d55da3cf076a556d135f805baf5ab46 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 22 May 1993 14:01:25 +0000 Subject: [PATCH] gengc mods --- code/lispinit.lisp | 38 ++++++++++++++++++++++++-------------- 1 file changed, 24 insertions(+), 14 deletions(-) diff --git a/code/lispinit.lisp b/code/lispinit.lisp index d8ac741ac..72591fcf7 100644 --- a/code/lispinit.lisp +++ b/code/lispinit.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ ;;; Must be initialized in %INITIAL-FUNCTION before the DEFVAR runs... -(proclaim '(special *gc-inhibit* *already-maybe-gcing* - *need-to-collect-garbage* *gc-verbose* - *before-gc-hooks* *after-gc-hooks* - unix::*interrupts-enabled* - unix::*interrupt-pending* - *type-system-initialized*)) +(declaim + #-gengc + (special *gc-inhibit* *already-maybe-gcing* + *need-to-collect-garbage* *gc-verbose* + *before-gc-hooks* *after-gc-hooks* + 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. @@ -57,10 +62,14 @@ ;;; These are filled in by Genesis. +#-gengc +(progn + (defvar *current-catch-block*) (defvar *current-unwind-block*) (defvar *free-interrupt-context-index*) +); #-gengc progn ;;; %Initial-Function is called when a cold system starts up. First we zoom @@ -82,14 +91,14 @@ (defun %initial-function () "Gives the world a shove and hopes it spins." - (setf *already-maybe-gcing* t) - (setf *gc-inhibit* t) - (setf *need-to-collect-garbage* nil) - (setf *gc-verbose* t) + #-gengc (setf *already-maybe-gcing* t) + #-gengc (setf *gc-inhibit* t) + #-gengc (setf *need-to-collect-garbage* nil) + (setf *gc-verbose* #-gengc t #+gengc nil) (setf *before-gc-hooks* nil) (setf *after-gc-hooks* nil) - (setf unix::*interrupts-enabled* t) - (setf unix::*interrupt-pending* nil) + #-gengc (setf unix::*interrupts-enabled* t) + #-gengc (setf unix::*interrupt-pending* nil) (setf *type-system-initialized* nil) (%primitive print "In initial-function, and running.") @@ -159,7 +168,8 @@ (%primitive print "Done initializing.") - (setf *already-maybe-gcing* nil) + #-gengc (setf *already-maybe-gcing* nil) + #+gengc (setf *gc-verbose* t) (terpri) (princ "CMU Common Lisp kernel core image ") (princ (lisp-implementation-version)) -- GitLab