projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.4:
[sbcl.git]
/
src
/
code
/
cold-init.lisp
diff --git
a/src/code/cold-init.lisp
b/src/code/cold-init.lisp
index
72d26fc
..
6d10a6a
100644
(file)
--- a/
src/code/cold-init.lisp
+++ b/
src/code/cold-init.lisp
@@
-154,6
+154,7
@@
(/primitive-print hexstr)))
(let (#!+sb-show (index-in-cold-toplevels 0))
#!+sb-show (declare (type fixnum index-in-cold-toplevels))
(/primitive-print hexstr)))
(let (#!+sb-show (index-in-cold-toplevels 0))
#!+sb-show (declare (type fixnum index-in-cold-toplevels))
+
(dolist (toplevel-thing (prog1
(nreverse *!reversed-cold-toplevels*)
;; (Now that we've NREVERSEd it, it's
(dolist (toplevel-thing (prog1
(nreverse *!reversed-cold-toplevels*)
;; (Now that we've NREVERSEd it, it's
@@
-212,6
+213,11
@@
;; FIXME: This list of modes should be defined in one place and
;; explicitly shared between here and REINIT.
;; FIXME: This list of modes should be defined in one place and
;; explicitly shared between here and REINIT.
+ ;;
+ ;; FIXME: In CMU CL, this is done "here" (i.e. in the analogous
+ ;; lispinit.lisp code) for every processor architecture. But Daniel
+ ;; Barlow's Alpha patches suppress it for Alpha. Why the difference?
+ #!+alpha
(set-floating-point-modes :traps '(:overflow
#!-x86 :underflow
:invalid
(set-floating-point-modes :traps '(:overflow
#!-x86 :underflow
:invalid
@@
-240,7
+246,7
@@
;; could be typed directly, with no parentheses, at the debug prompt
;; the way that e.g. F or BACKTRACE can be?)
;; could be typed directly, with no parentheses, at the debug prompt
;; the way that e.g. F or BACKTRACE can be?)
- (/show0 "done initializing")
+ (/show0 "done initializing, setting *COLD-INIT-COMPLETE-P*")
(setf *cold-init-complete-p* t)
;; The system is finally ready for GC.
(setf *cold-init-complete-p* t)
;; The system is finally ready for GC.
@@
-283,7
+289,7
@@
instead (which is another name for the same thing)."))
(os-cold-init-or-reinit)
(stream-reinit)
(signal-cold-init-or-reinit)
(os-cold-init-or-reinit)
(stream-reinit)
(signal-cold-init-or-reinit)
- (gc-cold-init-or-reinit)
+ (gc-reinit)
(setf (sb!alien:extern-alien "internal_errors_enabled" boolean) t)
(set-floating-point-modes :traps
'(:overflow
(setf (sb!alien:extern-alien "internal_errors_enabled" boolean) t)
(set-floating-point-modes :traps
'(:overflow
@@
-305,7
+311,7
@@
instead (which is another name for the same thing)."))
;; reason.. (Perhaps we should do it anyway in case someone
;; manages to save an image from within a pseudo-atomic-atomic
;; operation?)
;; reason.. (Perhaps we should do it anyway in case someone
;; manages to save an image from within a pseudo-atomic-atomic
;; operation?)
- #!+x86 (setf sb!impl::*pseudo-atomic-atomic* 0))
+ #!+x86 (setf *pseudo-atomic-atomic* 0))
(gc-on)))
\f
;;;; some support for any hapless wretches who end up debugging cold
(gc-on)))
\f
;;;; some support for any hapless wretches who end up debugging cold