X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fparms.lisp;h=0107ecd87d3c3179e7c5cd8ac7c9935274a35687;hb=d970a7aa8be2cfdc15c340382b99ef9db4428df3;hp=346b892fce1d21c8a645f511b01ff493864dbf8d;hpb=0d871fd7a98fc4af92a8b942a1154761466ad8c9;p=sbcl.git

diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp
index 346b892..0107ecd 100644
--- a/src/compiler/x86/parms.lisp
+++ b/src/compiler/x86/parms.lisp
@@ -161,6 +161,20 @@
   (def!constant linkage-table-space-start #x70000000)
   (def!constant linkage-table-space-end   #x7ffff000))
 
+#!+sunos
+(progn
+  (def!constant read-only-space-start     #x20000000)
+  (def!constant read-only-space-end       #x2ffff000)
+
+  (def!constant static-space-start        #x40000000)
+  (def!constant static-space-end          #x42fff000)
+
+  (def!constant dynamic-space-start       #x48000000)
+  (def!constant dynamic-space-end         #xA0000000)
+
+  (def!constant linkage-table-space-start #xA2000000)
+  (def!constant linkage-table-space-end   #xA3000000))
+
 #!+freebsd
 (progn
   (def!constant read-only-space-start     #x10000000)
@@ -296,8 +310,12 @@
     sb!unix::*interrupts-enabled*
     sb!unix::*interrupt-pending*
     *free-interrupt-context-index*
+    *gc-inhibit*
+    #!+sb-thread *stop-for-gc-pending*
+    *gc-pending*
 
     *free-tls-index*
+    *tls-index-lock*
 
     *allocation-pointer*
     *binding-stack-pointer*
@@ -305,8 +323,6 @@
     *control-stack-start*
     *control-stack-end*
 
-    *need-to-collect-garbage*
-
     ;; the floating point constants
     *fp-constant-0d0*
     *fp-constant-1d0*