Add HAVE_THREAD_INTERN for platform-dependent struct thread additions.

Fix ThrSETSTATE not to lock t->mutex itself.

p4raw-id: //depot/perl@130

1 files changed, 11 insertions, 0 deletions

diff --git a/fakethr.h b/fakethr.h
index fc25571ac9..dac2cc9030 100644
--- a/fakethr.h
+++ b/fakethr.h
@@ -7,9 +7,20 @@ struct perl_wait_queue {
 };
 typedef struct perl_wait_queue *perl_cond;
 
+/* Ask thread.h to include our per-thread extras */
+#define HAVE_THREAD_INTERN
 struct thread_intern {
     perl_thread next_run, prev_run;     /* Linked list of runnable threads */
     perl_cond   wait_queue;             /* Wait queue that we are waiting on */
     IV          private;                /* Holds data across time slices */
     I32         savemark;               /* Holds MARK for thread join values */
 };
+
+#define init_thread_intern(t) 				\
+    STMT_START {					\
+	t->Tself = (t);					\
+	(t)->i.next_run = (t)->i.prev_run = (t);	\
+	(t)->i.wait_queue = 0;				\
+	(t)->i.private = 0;				\
+    } STMT_END
+