X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fparms.lisp;h=701b42fb5526b57acfddeba12508bb4fad572414;hb=20b2378572cf7378f3f267e2234c4234dacfbdc9;hp=6a1dbfe7f5fb279facc2ea6ea24ecd47602e26a3;hpb=2f2fad31a662b5387376003fab7ef328b4ac9063;p=sbcl.git

diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp
index 6a1dbfe..701b42f 100644
--- a/src/compiler/x86/parms.lisp
+++ b/src/compiler/x86/parms.lisp
@@ -27,6 +27,10 @@
 ;;; the number of bits per word, where a word holds one lisp descriptor
 (def!constant n-word-bits 32)
 
+;;; the natural width of a machine word (as seen in e.g. register width,
+;;; address space)
+(def!constant n-machine-word-bits 32)
+
 ;;; the number of bits per byte, where a byte is the smallest
 ;;; addressable object
 (def!constant n-byte-bits 8)
@@ -222,6 +226,7 @@
     sb!kernel::control-stack-exhausted-error
     sb!di::handle-breakpoint
     fdefinition-object
+    #!+sb-thread sb!thread::handle-thread-exit
 
     ;; free pointers
     ;; 
@@ -246,7 +251,6 @@
     *free-interrupt-context-index*
 
     *free-tls-index*
-    sb!thread::*foreground-thread-stack*
     
     *allocation-pointer*
     *binding-stack-pointer*