This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Added fakethr.h.
[perl5.git] / fakethr.h
CommitLineData
d6949db4
MB
1typedef int perl_mutex;
2typedef int perl_key;
3
4struct perl_wait_queue {
5 struct thread * thread;
6 struct perl_wait_queue * next;
7};
8typedef struct perl_wait_queue *perl_cond;
9
10struct 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 */
15};