1 typedef int perl_mutex;
4 struct perl_wait_queue {
5 struct thread * thread;
6 struct perl_wait_queue * next;
8 typedef struct perl_wait_queue *perl_cond;
10 struct thread_intern {
11 perl_thread next_run, prev_run; /* Linked list of runnable threads */
12 perl_cond wait_queue; /* Wait queue that we are waiting on */
13 IV private; /* Holds data across time slices */
14 I32 savemark; /* Holds MARK for thread join values */