projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.8.5:
[sbcl.git]
/
src
/
compiler
/
x86
/
parms.lisp
diff --git
a/src/compiler/x86/parms.lisp
b/src/compiler/x86/parms.lisp
index
0107ecd
..
c6edb03
100644
(file)
--- a/
src/compiler/x86/parms.lisp
+++ b/
src/compiler/x86/parms.lisp
@@
-35,6
+35,10
@@
;;; addressable object
(def!constant n-byte-bits 8)
;;; addressable object
(def!constant n-byte-bits 8)
+;;; The size in bytes of the GENCGC pages. Should be a multiple of the
+;;; architecture code size.
+(def!constant gencgc-page-size 4096)
+
(def!constant float-sign-shift 31)
;;; comment from CMU CL:
(def!constant float-sign-shift 31)
;;; comment from CMU CL:
@@
-313,6
+317,7
@@
*gc-inhibit*
#!+sb-thread *stop-for-gc-pending*
*gc-pending*
*gc-inhibit*
#!+sb-thread *stop-for-gc-pending*
*gc-pending*
+ #!+sb-thread sb!thread::run-interruption
*free-tls-index*
*tls-index-lock*
*free-tls-index*
*tls-index-lock*
@@
-337,6
+342,9
@@
*fp-constant-lg2*
*fp-constant-ln2*
*fp-constant-lg2*
*fp-constant-ln2*
+ ;; For GC-AND-SAVE
+ *restart-lisp-function*
+
;; The ..SLOT-UNBOUND.. symbol is static in order to optimise the
;; common slot unbound check.
;;
;; The ..SLOT-UNBOUND.. symbol is static in order to optimise the
;; common slot unbound check.
;;