[p5sagit/p5-mst-13.2.git] / fakethr.h

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;

/* 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
Commit	Line	Data
d6949db4	1	typedef int perl_mutex;
	2	typedef int perl_key;
	3
	4	struct perl_wait_queue {
	5	struct thread * thread;
	6	struct perl_wait_queue * next;
	7	};
	8	typedef struct perl_wait_queue *perl_cond;
	9
f826a10b	10	/* Ask thread.h to include our per-thread extras */
f826a10b	11	#define HAVE_THREAD_INTERN
d6949db4	12	struct thread_intern {
	13	perl_thread next_run, prev_run; /* Linked list of runnable threads */
	14	perl_cond wait_queue; /* Wait queue that we are waiting on */
	15	IV private; /* Holds data across time slices */
	16	I32 savemark; /* Holds MARK for thread join values */
	17	};
f826a10b	18
	19	#define init_thread_intern(t) \
	20	STMT_START { \
	21	t->Tself = (t); \
	22	(t)->i.next_run = (t)->i.prev_run = (t); \
	23	(t)->i.wait_queue = 0; \
	24	(t)->i.private = 0; \
	25	} STMT_END
	26