Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv28829/src/runtime
Modified Files:
thread.c
Log Message:
1.0.16.36: fix Windows build, hopefully
* Make OS-ATTR part of the thread object only on threaded platforms.
Index: thread.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/thread.c,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -d -r1.84 -r1.85
--- thread.c 15 May 2008 15:37:50 -0000 1.84
+++ thread.c 17 May 2008 19:52:22 -0000 1.85
@@ -65,6 +65,7 @@
#define ALIEN_STACK_SIZE (1*1024*1024) /* 1Mb size chosen at random */
+#ifdef LISP_FEATURE_SB_THREAD
struct thread_post_mortem {
#ifdef DELAY_THREAD_POST_MORTEM
struct thread_post_mortem *next;
@@ -74,12 +75,12 @@
os_vm_address_t os_address;
};
-
#ifdef DELAY_THREAD_POST_MORTEM
static int pending_thread_post_mortem_count = 0;
pthread_mutex_t thread_post_mortem_lock = PTHREAD_MUTEX_INITIALIZER;
#endif
static struct thread_post_mortem * volatile pending_thread_post_mortem = 0;
+#endif
int dynamic_values_bytes=TLS_SIZE*sizeof(lispobj); /* same for all threads */
struct thread * volatile all_threads;
@@ -392,7 +393,9 @@
th->binding_stack_pointer=th->binding_stack_start;
th->this=th;
th->os_thread=0;
+#ifdef LISP_FEATURE_SB_THREAD
th->os_attr=malloc(sizeof(pthread_attr_t));
+#endif
th->state=STATE_RUNNING;
#ifdef LISP_FEATURE_STACK_GROWS_DOWNWARD_NOT_UPWARD
th->alien_stack_pointer=((void *)th->alien_stack_start
|