X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fx86-sunos-os.c;h=0edd0b1d7b8582b7deb91c70fe1e6f0c81930cf1;hb=5cb51577bd59c36822e90fb814564bb7d59ee37e;hp=46ae0873db49e92407bccb8e20d63620b5af3ce3;hpb=8643c93d4db277f6e1cb880a42407ff29e19f618;p=sbcl.git

diff --git a/src/runtime/x86-sunos-os.c b/src/runtime/x86-sunos-os.c
index 46ae087..0edd0b1 100644
--- a/src/runtime/x86-sunos-os.c
+++ b/src/runtime/x86-sunos-os.c
@@ -102,6 +102,10 @@ int arch_os_thread_init(struct thread *thread) {
 
   thread->tls_cookie = sel;
   pthread_setspecific(specials,thread);
+
+# ifdef LISP_FEATURE_SB_SAFEPOINT
+    thread->selfptr = thread;
+# endif
 #endif
 
 #ifdef LISP_FEATURE_C_STACK_IS_CONTROL_STACK