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)
 
+;;; 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:
@@ -313,6 +317,7 @@
     *gc-inhibit*
     #!+sb-thread *stop-for-gc-pending*
     *gc-pending*
+    #!+sb-thread sb!thread::run-interruption
 
     *free-tls-index*
     *tls-index-lock*
@@ -337,6 +342,9 @@
     *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.
     ;;