From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Wed, 15 Oct 1997 10:00:18 +0000 (+0000)
Subject: Added fakethr.h.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d6949db442b724609f0d7a39818bedee08273a43;p=p5sagit%2Fp5-mst-13.2.git

Added fakethr.h.

p4raw-id: //depot/perl@127
---

diff --git a/fakethr.h b/fakethr.h
new file mode 100644
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 */
+};