X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fparms.lisp;h=e5954c66e9de72042c094b22306be008c83a3bce;hb=673234cb910923d41badca51b383e3188f375691;hp=7d7e3df60fa25c9c4c0e2e3c17cb1e3d6204a383;hpb=0d871fd7a98fc4af92a8b942a1154761466ad8c9;p=sbcl.git

diff --git a/src/compiler/x86-64/parms.lisp b/src/compiler/x86-64/parms.lisp
index 7d7e3df..e5954c6 100644
--- a/src/compiler/x86-64/parms.lisp
+++ b/src/compiler/x86-64/parms.lisp
@@ -190,8 +190,13 @@
     sb!unix::*interrupts-enabled*
     sb!unix::*interrupt-pending*
     *free-interrupt-context-index*
+    *gc-inhibit*
+    #!+sb-thread *stop-for-gc-pending*
+    *gc-pending*
+    #!+sb-thread sb!thread::run-interruption
 
     *free-tls-index*
+    *tls-index-lock*
 
     *allocation-pointer*
     *binding-stack-pointer*
@@ -199,14 +204,15 @@
     *control-stack-start*
     *control-stack-end*
 
-    *need-to-collect-garbage*
-
     ;; the floating point constants
     *fp-constant-0d0*
     *fp-constant-1d0*
     *fp-constant-0f0*
     *fp-constant-1f0*
 
+    ;; For GC-AND-SAVE
+    *restart-lisp-function*
+
     ;; The ..SLOT-UNBOUND.. symbol is static in order to optimise the
     ;; common slot unbound check.
     ;;