Added fakethr.h.

p4raw-id: //depot/perl@127

diff --git a/fakethr.h b/fakethr.h
new file mode 100644 (file)
index 0000000..fc25571
--- /dev/null
+++ b/fakethr.h
@@ -0,0 +1,15 @@
+typedef int perl_mutex;
+typedef int perl_key;
+
+struct perl_wait_queue {
+    struct thread *            thread;
+    struct perl_wait_queue *   next;
+};
+typedef struct perl_wait_queue *perl_cond;
+
+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 */
+};