[perl5.git] / thread.h

#ifdef USE_THREADS

#ifdef WIN32
#  include <win32thread.h>
#else

/* POSIXish threads */
typedef pthread_t perl_thread;
#ifdef OLD_PTHREADS_API
#  define pthread_mutexattr_init(a) pthread_mutexattr_create(a)
#  define pthread_mutexattr_settype(a,t) pthread_mutexattr_setkind_np(a,t)
#  define pthread_key_create(k,d) pthread_keycreate(k,(pthread_destructor_t)(d))
#  define YIELD pthread_yield()
#  define DETACH(t)				\
    STMT_START {				\
	if (pthread_detach(&(t)->self)) {	\
	    MUTEX_UNLOCK(&(t)->mutex);		\
	    croak("panic: DETACH");		\
	}					\
    } STMT_END
#else
#  define pthread_mutexattr_default NULL
#  define pthread_condattr_default NULL
#  define pthread_attr_default NULL
#endif /* OLD_PTHREADS_API */
#endif

#ifndef YIELD
#  define YIELD sched_yield()
#endif

#ifndef MUTEX_INIT
#define MUTEX_INIT(m)						\
    STMT_START {						\
	if (pthread_mutex_init((m), pthread_mutexattr_default))	\
	    croak("panic: MUTEX_INIT");				\
    } STMT_END
#define MUTEX_LOCK(m)				\
    STMT_START {				\
	if (pthread_mutex_lock((m)))		\
	    croak("panic: MUTEX_LOCK");		\
    } STMT_END
#define MUTEX_UNLOCK(m)				\
    STMT_START {				\
	if (pthread_mutex_unlock((m)))		\
	    croak("panic: MUTEX_UNLOCK");	\
    } STMT_END
#define MUTEX_DESTROY(m)			\
    STMT_START {				\
	if (pthread_mutex_destroy((m)))		\
	    croak("panic: MUTEX_DESTROY");	\
    } STMT_END
#endif /* MUTEX_INIT */

#ifndef COND_INIT
#define COND_INIT(c)						\
    STMT_START {						\
	if (pthread_cond_init((c), pthread_condattr_default))	\
	    croak("panic: COND_INIT");				\
    } STMT_END
#define COND_SIGNAL(c)				\
    STMT_START {				\
	if (pthread_cond_signal((c)))		\
	    croak("panic: COND_SIGNAL");	\
    } STMT_END
#define COND_BROADCAST(c)			\
    STMT_START {				\
	if (pthread_cond_broadcast((c)))	\
	    croak("panic: COND_BROADCAST");	\
    } STMT_END
#define COND_WAIT(c, m)				\
    STMT_START {				\
	if (pthread_cond_wait((c), (m)))	\
	    croak("panic: COND_WAIT");		\
    } STMT_END
#define COND_DESTROY(c)				\
    STMT_START {				\
	if (pthread_cond_destroy((c)))		\
	    croak("panic: COND_DESTROY");	\
    } STMT_END
#endif /* COND_INIT */

/* DETACH(t) must only be called while holding t->mutex */
#ifndef DETACH
#define DETACH(t)				\
    STMT_START {				\
	if (pthread_detach((t)->self)) {	\
	    MUTEX_UNLOCK(&(t)->mutex);		\
	    croak("panic: DETACH");		\
	}					\
    } STMT_END
#endif /* DETACH */

#ifndef JOIN
#define JOIN(t, avp) 					\
    STMT_START {					\
	if (pthread_join((t)->self, (void**)(avp)))	\
	    croak("panic: pthread_join");		\
    } STMT_END
#endif /* JOIN */

#ifndef SET_THR
#define SET_THR(t)					\
    STMT_START {					\
	if (pthread_setspecific(thr_key, (void *) (t)))	\
	    croak("panic: pthread_setspecific");	\
    } STMT_END
#endif /* SET_THR */

#ifndef THR
#  ifdef OLD_PTHREADS_API
struct thread *getTHR _((void));
#    define THR getTHR()
#  else
#    define THR ((struct thread *) pthread_getspecific(thr_key))
#  endif /* OLD_PTHREADS_API */
#endif /* THR */

#ifndef dTHR
#  define dTHR struct thread *thr = THR
#endif /* dTHR */

#ifndef INIT_THREADS
#  ifdef NEED_PTHREAD_INIT
#    define INIT_THREADS pthread_init()
#  else
#    define INIT_THREADS NOOP
#  endif
#endif


#ifndef THREAD_RET_TYPE
#  define THREAD_RET_TYPE	void *
#  define THREAD_RET_CAST(p)	((void *)(p))
#endif /* THREAD_RET */

struct thread {
    /* The fields that used to be global */
    /* Important ones in the first cache line (if alignment is done right) */
    SV **	Tstack_sp;
#ifdef OP_IN_REGISTER
    OP *	Topsave;
#else
    OP *	Top;
#endif
    SV **	Tcurpad;
    SV **	Tstack_base;

    SV **	Tstack_max;

    I32 *	Tscopestack;
    I32		Tscopestack_ix;
    I32		Tscopestack_max;

    ANY *	Tsavestack;
    I32		Tsavestack_ix;
    I32		Tsavestack_max;

    OP **	Tretstack;
    I32		Tretstack_ix;
    I32		Tretstack_max;

    I32 *	Tmarkstack;
    I32 *	Tmarkstack_ptr;
    I32 *	Tmarkstack_max;

    SV *	TSv;
    XPV *	TXpv;
    struct stat	Tstatbuf;
    struct tms	Ttimesbuf;
    
    /* XXX What about regexp stuff? */

    /* Now the fields that used to be "per interpreter" (even when global) */

    /* Fields used by magic variables such as $@, $/ and so on */
    bool	Ttainted;
    PMOP *	Tcurpm;
    SV *	Tnrs;
    SV *	Trs;
    GV *	Tlast_in_gv;
    char *	Tofs;
    STRLEN	Tofslen;
    GV *	Tdefoutgv;
    char *	Tchopset;
    SV *	Tformtarget;
    SV *	Tbodytarget;
    SV *	Ttoptarget;

    /* Stashes */
    HV *	Tdefstash;
    HV *	Tcurstash;

    /* Stacks */
    SV **	Ttmps_stack;
    I32		Ttmps_ix;
    I32		Ttmps_floor;
    I32		Ttmps_max;

    int		Tin_eval;
    OP *	Trestartop;
    int		Tdelaymagic;
    bool	Tdirty;
    U8		Tlocalizing;
    COP *	Tcurcop;

    PERL_CONTEXT *	Tcxstack;
    I32		Tcxstack_ix;
    I32		Tcxstack_max;

    AV *	Tcurstack;
    AV *	Tmainstack;
    JMPENV *	Ttop_env;
    I32		Trunlevel;

    /* XXX Sort stuff, firstgv, secongv and so on? */

    SV *	oursv;
    HV *	cvcache;
    perl_thread	self;			/* Underlying thread object */
    U32		flags;
    AV *	magicals;		/* Per-thread magicals */
    AV *	specific;		/* Thread-specific user data */
    SV *	errsv;			/* Backing SV for $@ */
    HV *	errhv;			/* HV for what was %@ in pp_ctl.c */
    perl_mutex	mutex;			/* For the fields others can change */
    U32		tid;
    struct thread *next, *prev;		/* Circular linked list of threads */
    JMPENV	Tstart_env;	        /* Top of top_env longjmp() chain */ 
#ifdef HAVE_THREAD_INTERN
    struct thread_intern i;		/* Platform-dependent internals */
#endif
    char	trailing_nul;		/* For the sake of thrsv and oursv */
};

typedef struct thread *Thread;

/* Values and macros for thr->flags */
#define THRf_STATE_MASK	7
#define THRf_R_JOINABLE	0
#define THRf_R_JOINED	1
#define THRf_R_DETACHED	2
#define THRf_ZOMBIE	3
#define THRf_DEAD	4

#define THRf_DID_DIE	8

/* ThrSTATE(t) and ThrSETSTATE(t) must only be called while holding t->mutex */
#define ThrSTATE(t) ((t)->flags & THRf_STATE_MASK)
#define ThrSETSTATE(t, s) STMT_START {		\
	(t)->flags &= ~THRf_STATE_MASK;		\
	(t)->flags |= (s);			\
	DEBUG_L(PerlIO_printf(PerlIO_stderr(),	\
			      "thread %p set to state %d\n", (t), (s))); \
    } STMT_END

typedef struct condpair {
    perl_mutex	mutex;		/* Protects all other fields */
    perl_cond	owner_cond;	/* For when owner changes at all */
    perl_cond	cond;		/* For cond_signal and cond_broadcast */
    Thread	owner;		/* Currently owning thread */
} condpair_t;

#define MgMUTEXP(mg) (&((condpair_t *)(mg->mg_ptr))->mutex)
#define MgOWNERCONDP(mg) (&((condpair_t *)(mg->mg_ptr))->owner_cond)
#define MgCONDP(mg) (&((condpair_t *)(mg->mg_ptr))->cond)
#define MgOWNER(mg) ((condpair_t *)(mg->mg_ptr))->owner

#undef	stack_base
#undef	stack_sp
#undef	stack_max
#undef	curstack
#undef	mainstack
#undef	markstack
#undef	markstack_ptr
#undef	markstack_max
#undef	scopestack
#undef	scopestack_ix
#undef	scopestack_max
#undef	savestack
#undef	savestack_ix
#undef	savestack_max
#undef	retstack
#undef	retstack_ix
#undef	retstack_max
#undef	curcop
#undef	cxstack
#undef	cxstack_ix
#undef	cxstack_max
#undef	defstash
#undef	curstash
#undef	tmps_stack
#undef	tmps_floor
#undef	tmps_ix
#undef	tmps_max
#undef	curpad
#undef	Sv
#undef	Xpv
#undef	statbuf
#undef	timesbuf
#undef	tainted
#undef	curpm
#undef	nrs
#undef	rs
#undef	last_in_gv
#undef	ofs
#undef	ofslen
#undef	defoutgv
#undef	chopset
#undef	formtarget
#undef	bodytarget
#undef	toptarget
#undef	top_env
#undef	runlevel
#undef	in_eval
#undef	restartop
#undef	delaymagic
#undef	dirty
#undef	localizing

#define stack_base	(thr->Tstack_base)
#define stack_sp	(thr->Tstack_sp)
#define stack_max	(thr->Tstack_max)
#ifdef OP_IN_REGISTER
#define opsave		(thr->Topsave)
#else
#undef	op
#define op		(thr->Top)
#endif
#define	curcop		(thr->Tcurcop)
#define	stack		(thr->Tstack)
#define curstack	(thr->Tcurstack)
#define	mainstack	(thr->Tmainstack)
#define	markstack	(thr->Tmarkstack)
#define	markstack_ptr	(thr->Tmarkstack_ptr)
#define	markstack_max	(thr->Tmarkstack_max)
#define	scopestack	(thr->Tscopestack)
#define	scopestack_ix	(thr->Tscopestack_ix)
#define	scopestack_max	(thr->Tscopestack_max)

#define	savestack	(thr->Tsavestack)
#define	savestack_ix	(thr->Tsavestack_ix)
#define	savestack_max	(thr->Tsavestack_max)

#define	retstack	(thr->Tretstack)
#define	retstack_ix	(thr->Tretstack_ix)
#define	retstack_max	(thr->Tretstack_max)

#define	cxstack		(thr->Tcxstack)
#define	cxstack_ix	(thr->Tcxstack_ix)
#define	cxstack_max	(thr->Tcxstack_max)

#define curpad		(thr->Tcurpad)
#define Sv		(thr->TSv)
#define Xpv		(thr->TXpv)
#define statbuf		(thr->Tstatbuf)
#define timesbuf	(thr->Ttimesbuf)
#define	tainted		(thr->Ttainted)
#define	tainted		(thr->Ttainted)
#define	curpm		(thr->Tcurpm)
#define	nrs		(thr->Tnrs)
#define	rs		(thr->Trs)
#define	last_in_gv	(thr->Tlast_in_gv)
#define	ofs		(thr->Tofs)
#define	ofslen		(thr->Tofslen)
#define	defoutgv	(thr->Tdefoutgv)
#define	chopset		(thr->Tchopset)
#define	formtarget	(thr->Tformtarget)
#define	bodytarget	(thr->Tbodytarget)
#define	toptarget	(thr->Ttoptarget)
#define defstash	(thr->Tdefstash)
#define curstash	(thr->Tcurstash)

#define tmps_stack	(thr->Ttmps_stack)
#define tmps_ix		(thr->Ttmps_ix)
#define tmps_floor	(thr->Ttmps_floor)
#define tmps_max	(thr->Ttmps_max)

#define in_eval		(thr->Tin_eval)
#define restartop	(thr->Trestartop)
#define delaymagic	(thr->Tdelaymagic)
#define dirty		(thr->Tdirty)
#define localizing	(thr->Tlocalizing)

#define	top_env		(thr->Ttop_env)
#define	runlevel	(thr->Trunlevel)
#define start_env       (thr->Tstart_env)

#else
/* USE_THREADS is not defined */
#define MUTEX_LOCK(m)
#define MUTEX_UNLOCK(m)
#define MUTEX_INIT(m)
#define MUTEX_DESTROY(m)
#define COND_INIT(c)
#define COND_SIGNAL(c)
#define COND_BROADCAST(c)
#define COND_WAIT(c, m)
#define COND_DESTROY(c)

#define THR
/* Rats: if dTHR is just blank then the subsequent ";" throws an error */
#define dTHR extern int errno
#endif /* USE_THREADS */
Commit	Line	Data
ea0efc06	1	#ifdef USE_THREADS
12ca11f6	2
ea0efc06	3	#ifdef WIN32
f0f333f4 NIS	4	# include <win32thread.h>
f0f333f4 NIS	5	#else
12ca11f6	6
12ca11f6 MB	7	/* POSIXish threads */
12ca11f6 MB	8	typedef pthread_t perl_thread;
11343788	9	#ifdef OLD_PTHREADS_API
ea0efc06 MB	10	# define pthread_mutexattr_init(a) pthread_mutexattr_create(a)
	11	# define pthread_mutexattr_settype(a,t) pthread_mutexattr_setkind_np(a,t)
	12	# define pthread_key_create(k,d) pthread_keycreate(k,(pthread_destructor_t)(d))
	13	# define YIELD pthread_yield()
	14	# define DETACH(t) \
	15	STMT_START { \
46930d8f	16	if (pthread_detach(&(t)->self)) { \
ea0efc06 MB	17	MUTEX_UNLOCK(&(t)->mutex); \
	18	croak("panic: DETACH"); \
	19	} \
	20	} STMT_END
11343788	21	#else
ea0efc06 MB	22	# define pthread_mutexattr_default NULL
	23	# define pthread_condattr_default NULL
	24	# define pthread_attr_default NULL
11343788	25	#endif /* OLD_PTHREADS_API */
f0f333f4	26	#endif
11343788	27
ea0efc06 MB	28	#ifndef YIELD
	29	# define YIELD sched_yield()
	30	#endif
	31
	32	#ifndef MUTEX_INIT
	33	#define MUTEX_INIT(m) \
	34	STMT_START { \
	35	if (pthread_mutex_init((m), pthread_mutexattr_default)) \
	36	croak("panic: MUTEX_INIT"); \
	37	} STMT_END
	38	#define MUTEX_LOCK(m) \
	39	STMT_START { \
	40	if (pthread_mutex_lock((m))) \
	41	croak("panic: MUTEX_LOCK"); \
	42	} STMT_END
	43	#define MUTEX_UNLOCK(m) \
	44	STMT_START { \
	45	if (pthread_mutex_unlock((m))) \
	46	croak("panic: MUTEX_UNLOCK"); \
	47	} STMT_END
	48	#define MUTEX_DESTROY(m) \
	49	STMT_START { \
	50	if (pthread_mutex_destroy((m))) \
	51	croak("panic: MUTEX_DESTROY"); \
	52	} STMT_END
	53	#endif /* MUTEX_INIT */
	54
	55	#ifndef COND_INIT
	56	#define COND_INIT(c) \
	57	STMT_START { \
	58	if (pthread_cond_init((c), pthread_condattr_default)) \
	59	croak("panic: COND_INIT"); \
	60	} STMT_END
	61	#define COND_SIGNAL(c) \
	62	STMT_START { \
	63	if (pthread_cond_signal((c))) \
	64	croak("panic: COND_SIGNAL"); \
	65	} STMT_END
	66	#define COND_BROADCAST(c) \
	67	STMT_START { \
	68	if (pthread_cond_broadcast((c))) \
	69	croak("panic: COND_BROADCAST"); \
	70	} STMT_END
	71	#define COND_WAIT(c, m) \
	72	STMT_START { \
	73	if (pthread_cond_wait((c), (m))) \
	74	croak("panic: COND_WAIT"); \
	75	} STMT_END
	76	#define COND_DESTROY(c) \
	77	STMT_START { \
	78	if (pthread_cond_destroy((c))) \
	79	croak("panic: COND_DESTROY"); \
	80	} STMT_END
	81	#endif /* COND_INIT */
33f46ff6	82
f826a10b	83	/* DETACH(t) must only be called while holding t->mutex */
ea0efc06 MB	84	#ifndef DETACH
	85	#define DETACH(t) \
	86	STMT_START { \
46930d8f	87	if (pthread_detach((t)->self)) { \
ea0efc06 MB	88	MUTEX_UNLOCK(&(t)->mutex); \
	89	croak("panic: DETACH"); \
	90	} \
	91	} STMT_END
	92	#endif /* DETACH */
33f46ff6	93
ea0efc06 MB	94	#ifndef JOIN
	95	#define JOIN(t, avp) \
	96	STMT_START { \
46930d8f	97	if (pthread_join((t)->self, (void**)(avp))) \
ea0efc06 MB	98	croak("panic: pthread_join"); \
	99	} STMT_END
	100	#endif /* JOIN */
	101
	102	#ifndef SET_THR
	103	#define SET_THR(t) \
	104	STMT_START { \
	105	if (pthread_setspecific(thr_key, (void *) (t))) \
	106	croak("panic: pthread_setspecific"); \
	107	} STMT_END
	108	#endif /* SET_THR */
	109
	110	#ifndef THR
	111	# ifdef OLD_PTHREADS_API
11343788	112	struct thread *getTHR _((void));
ea0efc06 MB	113	# define THR getTHR()
	114	# else
	115	# define THR ((struct thread *) pthread_getspecific(thr_key))
	116	# endif /* OLD_PTHREADS_API */
	117	#endif /* THR */
	118
	119	#ifndef dTHR
	120	# define dTHR struct thread *thr = THR
	121	#endif /* dTHR */
11343788	122
33f46ff6 MB	123	#ifndef INIT_THREADS
	124	# ifdef NEED_PTHREAD_INIT
	125	# define INIT_THREADS pthread_init()
	126	# else
	127	# define INIT_THREADS NOOP
	128	# endif
	129	#endif
11343788	130
0b9678a8	131
ea0efc06 MB	132	#ifndef THREAD_RET_TYPE
	133	# define THREAD_RET_TYPE void *
	134	# define THREAD_RET_CAST(p) ((void *)(p))
	135	#endif /* THREAD_RET */
	136
33f46ff6	137	struct thread {
11343788	138	/* The fields that used to be global */
33f46ff6	139	/* Important ones in the first cache line (if alignment is done right) */
11343788	140	SV ** Tstack_sp;
462e5cf6 MB	141	#ifdef OP_IN_REGISTER
	142	OP * Topsave;
	143	#else
11343788	144	OP * Top;
462e5cf6	145	#endif
33f46ff6 MB	146	SV ** Tcurpad;
	147	SV ** Tstack_base;
	148
	149	SV ** Tstack_max;
11343788 MB	150
	151	I32 * Tscopestack;
	152	I32 Tscopestack_ix;
	153	I32 Tscopestack_max;
	154
	155	ANY * Tsavestack;
	156	I32 Tsavestack_ix;
	157	I32 Tsavestack_max;
	158
	159	OP ** Tretstack;
	160	I32 Tretstack_ix;
	161	I32 Tretstack_max;
	162
	163	I32 * Tmarkstack;
	164	I32 * Tmarkstack_ptr;
	165	I32 * Tmarkstack_max;
	166
11343788 MB	167	SV * TSv;
11343788 MB	168	XPV * TXpv;
11343788 MB	169	struct stat Tstatbuf;
	170	struct tms Ttimesbuf;
	171
	172	/* XXX What about regexp stuff? */
	173
	174	/* Now the fields that used to be "per interpreter" (even when global) */
	175
a863c7d1 MB	176	/* Fields used by magic variables such as $@, $/ and so on */
	177	bool Ttainted;
	178	PMOP * Tcurpm;
	179	SV * Tnrs;
	180	SV * Trs;
	181	GV * Tlast_in_gv;
	182	char * Tofs;
	183	STRLEN Tofslen;
	184	GV * Tdefoutgv;
	185	char * Tchopset;
	186	SV * Tformtarget;
	187	SV * Tbodytarget;
	188	SV * Ttoptarget;
	189
	190	/* Stashes */
11343788 MB	191	HV * Tdefstash;
11343788 MB	192	HV * Tcurstash;
11343788	193
a863c7d1	194	/* Stacks */
11343788 MB	195	SV ** Ttmps_stack;
	196	I32 Ttmps_ix;
	197	I32 Ttmps_floor;
	198	I32 Ttmps_max;
	199
	200	int Tin_eval;
	201	OP * Trestartop;
	202	int Tdelaymagic;
	203	bool Tdirty;
	204	U8 Tlocalizing;
0f15f207	205	COP * Tcurcop;
11343788	206
c09156bb	207	PERL_CONTEXT * Tcxstack;
11343788 MB	208	I32 Tcxstack_ix;
	209	I32 Tcxstack_max;
	210
0f15f207	211	AV * Tcurstack;
11343788	212	AV * Tmainstack;
e858de61	213	JMPENV * Ttop_env;
11343788 MB	214	I32 Trunlevel;
	215
	216	/* XXX Sort stuff, firstgv, secongv and so on? */
	217
199100c8 MB	218	SV * oursv;
199100c8 MB	219	HV * cvcache;
46930d8f	220	perl_thread self; /* Underlying thread object */
33f46ff6	221	U32 flags;
554b3eca MB	222	AV * magicals; /* Per-thread magicals */
554b3eca MB	223	AV * specific; /* Thread-specific user data */
38a03e6e MB	224	SV * errsv; /* Backing SV for $@ */
38a03e6e MB	225	HV * errhv; /* HV for what was %@ in pp_ctl.c */
f826a10b	226	perl_mutex mutex; /* For the fields others can change */
33f46ff6 MB	227	U32 tid;
33f46ff6 MB	228	struct thread next, prev; /* Circular linked list of threads */
0b9678a8	229	JMPENV Tstart_env; /* Top of top_env longjmp() chain */
00495520	230	#ifdef HAVE_THREAD_INTERN
f826a10b MB	231	struct thread_intern i; /* Platform-dependent internals */
f826a10b MB	232	#endif
199100c8	233	char trailing_nul; /* For the sake of thrsv and oursv */
11343788 MB	234	};
	235
	236	typedef struct thread *Thread;
	237
33f46ff6	238	/* Values and macros for thr->flags */
605e5515 MB	239	#define THRf_STATE_MASK 7
	240	#define THRf_R_JOINABLE 0
	241	#define THRf_R_JOINED 1
	242	#define THRf_R_DETACHED 2
	243	#define THRf_ZOMBIE 3
	244	#define THRf_DEAD 4
f93b4edd	245
458fb581	246	#define THRf_DID_DIE 8
07b73707	247
f826a10b	248	/* ThrSTATE(t) and ThrSETSTATE(t) must only be called while holding t->mutex */
458fb581	249	#define ThrSTATE(t) ((t)->flags & THRf_STATE_MASK)
f93b4edd	250	#define ThrSETSTATE(t, s) STMT_START { \
605e5515	251	(t)->flags &= ~THRf_STATE_MASK; \
33f46ff6	252	(t)->flags \|= (s); \
605e5515 MB	253	DEBUG_L(PerlIO_printf(PerlIO_stderr(), \
605e5515 MB	254	"thread %p set to state %d\n", (t), (s))); \
f93b4edd MB	255	} STMT_END
	256
	257	typedef struct condpair {
f826a10b MB	258	perl_mutex mutex; /* Protects all other fields */
	259	perl_cond owner_cond; /* For when owner changes at all */
	260	perl_cond cond; /* For cond_signal and cond_broadcast */
	261	Thread owner; /* Currently owning thread */
f93b4edd MB	262	} condpair_t;
	263
	264	#define MgMUTEXP(mg) (&((condpair_t *)(mg->mg_ptr))->mutex)
	265	#define MgOWNERCONDP(mg) (&((condpair_t *)(mg->mg_ptr))->owner_cond)
	266	#define MgCONDP(mg) (&((condpair_t *)(mg->mg_ptr))->cond)
	267	#define MgOWNER(mg) ((condpair_t *)(mg->mg_ptr))->owner
	268
11343788 MB	269	#undef stack_base
	270	#undef stack_sp
	271	#undef stack_max
0f15f207	272	#undef curstack
11343788 MB	273	#undef mainstack
	274	#undef markstack
	275	#undef markstack_ptr
	276	#undef markstack_max
	277	#undef scopestack
	278	#undef scopestack_ix
	279	#undef scopestack_max
	280	#undef savestack
	281	#undef savestack_ix
	282	#undef savestack_max
	283	#undef retstack
	284	#undef retstack_ix
	285	#undef retstack_max
0f15f207	286	#undef curcop
11343788 MB	287	#undef cxstack
	288	#undef cxstack_ix
	289	#undef cxstack_max
809a5acc MB	290	#undef defstash
809a5acc MB	291	#undef curstash
6d4ff0d2 MB	292	#undef tmps_stack
	293	#undef tmps_floor
	294	#undef tmps_ix
	295	#undef tmps_max
11343788 MB	296	#undef curpad
	297	#undef Sv
	298	#undef Xpv
96827780 MB	299	#undef statbuf
96827780 MB	300	#undef timesbuf
a863c7d1 MB	301	#undef tainted
	302	#undef curpm
	303	#undef nrs
	304	#undef rs
	305	#undef last_in_gv
	306	#undef ofs
	307	#undef ofslen
	308	#undef defoutgv
	309	#undef chopset
	310	#undef formtarget
	311	#undef bodytarget
	312	#undef toptarget
11343788 MB	313	#undef top_env
	314	#undef runlevel
	315	#undef in_eval
809a5acc MB	316	#undef restartop
	317	#undef delaymagic
	318	#undef dirty
	319	#undef localizing
11343788	320
11343788 MB	321	#define stack_base (thr->Tstack_base)
	322	#define stack_sp (thr->Tstack_sp)
	323	#define stack_max (thr->Tstack_max)
462e5cf6 MB	324	#ifdef OP_IN_REGISTER
	325	#define opsave (thr->Topsave)
	326	#else
	327	#undef op
11343788	328	#define op (thr->Top)
462e5cf6	329	#endif
0f15f207	330	#define curcop (thr->Tcurcop)
11343788	331	#define stack (thr->Tstack)
809a5acc	332	#define curstack (thr->Tcurstack)
11343788 MB	333	#define mainstack (thr->Tmainstack)
	334	#define markstack (thr->Tmarkstack)
	335	#define markstack_ptr (thr->Tmarkstack_ptr)
	336	#define markstack_max (thr->Tmarkstack_max)
	337	#define scopestack (thr->Tscopestack)
	338	#define scopestack_ix (thr->Tscopestack_ix)
	339	#define scopestack_max (thr->Tscopestack_max)
	340
	341	#define savestack (thr->Tsavestack)
	342	#define savestack_ix (thr->Tsavestack_ix)
	343	#define savestack_max (thr->Tsavestack_max)
	344
	345	#define retstack (thr->Tretstack)
	346	#define retstack_ix (thr->Tretstack_ix)
	347	#define retstack_max (thr->Tretstack_max)
	348
	349	#define cxstack (thr->Tcxstack)
	350	#define cxstack_ix (thr->Tcxstack_ix)
	351	#define cxstack_max (thr->Tcxstack_max)
	352
	353	#define curpad (thr->Tcurpad)
	354	#define Sv (thr->TSv)
	355	#define Xpv (thr->TXpv)
96827780 MB	356	#define statbuf (thr->Tstatbuf)
96827780 MB	357	#define timesbuf (thr->Ttimesbuf)
a863c7d1 MB	358	#define tainted (thr->Ttainted)
	359	#define tainted (thr->Ttainted)
	360	#define curpm (thr->Tcurpm)
	361	#define nrs (thr->Tnrs)
	362	#define rs (thr->Trs)
	363	#define last_in_gv (thr->Tlast_in_gv)
	364	#define ofs (thr->Tofs)
57d3b86d	365	#define ofslen (thr->Tofslen)
a863c7d1 MB	366	#define defoutgv (thr->Tdefoutgv)
	367	#define chopset (thr->Tchopset)
	368	#define formtarget (thr->Tformtarget)
	369	#define bodytarget (thr->Tbodytarget)
	370	#define toptarget (thr->Ttoptarget)
11343788 MB	371	#define defstash (thr->Tdefstash)
11343788 MB	372	#define curstash (thr->Tcurstash)
11343788 MB	373
	374	#define tmps_stack (thr->Ttmps_stack)
	375	#define tmps_ix (thr->Ttmps_ix)
	376	#define tmps_floor (thr->Ttmps_floor)
	377	#define tmps_max (thr->Ttmps_max)
	378
	379	#define in_eval (thr->Tin_eval)
	380	#define restartop (thr->Trestartop)
	381	#define delaymagic (thr->Tdelaymagic)
	382	#define dirty (thr->Tdirty)
	383	#define localizing (thr->Tlocalizing)
	384
	385	#define top_env (thr->Ttop_env)
	386	#define runlevel (thr->Trunlevel)
0b9678a8	387	#define start_env (thr->Tstart_env)
11343788	388
ea0efc06 MB	389	#else
	390	/* USE_THREADS is not defined */
	391	#define MUTEX_LOCK(m)
	392	#define MUTEX_UNLOCK(m)
	393	#define MUTEX_INIT(m)
	394	#define MUTEX_DESTROY(m)
	395	#define COND_INIT(c)
	396	#define COND_SIGNAL(c)
	397	#define COND_BROADCAST(c)
	398	#define COND_WAIT(c, m)
	399	#define COND_DESTROY(c)
	400
	401	#define THR
	402	/* Rats: if dTHR is just blank then the subsequent ";" throws an error */
	403	#define dTHR extern int errno
11343788	404	#endif /* USE_THREADS */