projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.24.48: Do explicit sign-extension of small signed alien return values
[sbcl.git]
/
src
/
code
/
cold-init.lisp
diff --git
a/src/code/cold-init.lisp
b/src/code/cold-init.lisp
index
63362b7
..
2b26328
100644
(file)
--- a/
src/code/cold-init.lisp
+++ b/
src/code/cold-init.lisp
@@
-141,6
+141,7
@@
;; forms run.
(show-and-call !type-class-cold-init)
(show-and-call !typedefs-cold-init)
;; forms run.
(show-and-call !type-class-cold-init)
(show-and-call !typedefs-cold-init)
+ (show-and-call !world-lock-cold-init)
(show-and-call !classes-cold-init)
(show-and-call !early-type-cold-init)
(show-and-call !late-type-cold-init)
(show-and-call !classes-cold-init)
(show-and-call !early-type-cold-init)
(show-and-call !late-type-cold-init)
@@
-258,6
+259,8
@@
(/show0 "done initializing, setting *COLD-INIT-COMPLETE-P*")
(setf *cold-init-complete-p* t)
(/show0 "done initializing, setting *COLD-INIT-COMPLETE-P*")
(setf *cold-init-complete-p* t)
+ ; hppa heap is segmented, lisp and c uses a stub to call eachother
+ #!+hpux (sb!sys:%primitive sb!vm::setup-return-from-lisp-stub)
;; The system is finally ready for GC.
(/show0 "enabling GC")
(gc-on)
;; The system is finally ready for GC.
(/show0 "enabling GC")
(gc-on)