3 #define MUTEX_UNLOCK(m)
5 #define MUTEX_DESTROY(m)
8 #define COND_BROADCAST(c)
9 #define COND_WAIT(c, m)
10 #define COND_DESTROY(c)
13 /* Rats: if dTHR is just blank then the subsequent ";" throws an error */
14 #define dTHR extern int errno
18 #ifdef OLD_PTHREADS_API
19 #define pthread_mutexattr_init(a) pthread_mutexattr_create(a)
20 #define pthread_mutexattr_settype(a,t) pthread_mutexattr_setkind_np(a,t)
21 #define pthread_key_create(k,d) pthread_keycreate(k,(pthread_destructor_t)(d))
23 #define pthread_mutexattr_default NULL
24 #endif /* OLD_PTHREADS_API */
26 #define MUTEX_INIT(m) \
27 if (pthread_mutex_init((m), pthread_mutexattr_default)) \
28 croak("panic: MUTEX_INIT"); \
30 #define MUTEX_LOCK(m) \
31 if (pthread_mutex_lock((m))) croak("panic: MUTEX_LOCK"); else 1
32 #define MUTEX_UNLOCK(m) \
33 if (pthread_mutex_unlock((m))) croak("panic: MUTEX_UNLOCK"); else 1
34 #define MUTEX_DESTROY(m) \
35 if (pthread_mutex_destroy((m))) croak("panic: MUTEX_DESTROY"); else 1
36 #define COND_INIT(c) \
37 if (pthread_cond_init((c), NULL)) croak("panic: COND_INIT"); else 1
38 #define COND_SIGNAL(c) \
39 if (pthread_cond_signal((c))) croak("panic: COND_SIGNAL"); else 1
40 #define COND_BROADCAST(c) \
41 if (pthread_cond_broadcast((c))) croak("panic: COND_BROADCAST"); else 1
42 #define COND_WAIT(c, m) \
43 if (pthread_cond_wait((c), (m))) croak("panic: COND_WAIT"); else 1
44 #define COND_DESTROY(c) \
45 if (pthread_cond_destroy((c))) croak("panic: COND_DESTROY"); else 1
46 /* XXX Add "old" (?) POSIX draft interface too */
47 #ifdef OLD_PTHREADS_API
48 struct thread *getTHR _((void));
51 #define THR ((struct thread *) pthread_getspecific(thr_key))
52 #endif /* OLD_PTHREADS_API */
53 #define dTHR struct thread *thr = THR
58 /* The fields that used to be global */
85 char Tbuf[2048]; /* should be a global locked by a mutex */
86 char Ttokenbuf[256]; /* should be a global locked by a mutex */
90 /* XXX What about regexp stuff? */
92 /* Now the fields that used to be "per interpreter" (even when global) */
94 /* XXX What about magic variables such as $/, $? and so on? */
120 /* XXX Sort stuff, firstgv, secongv and so on? */
122 pthread_mutex_t * Tthreadstart_mutexp;
127 typedef struct thread *Thread;
129 /* Values and macros for thrflags */
130 #define THR_STATE_MASK 3
132 #define THR_DETACHED 1
136 #define ThrSTATE(t) (t->Tthrflags & THR_STATE_MASK)
137 #define ThrSETSTATE(t, s) STMT_START { \
138 (t)->Tthrflags &= ~THR_STATE_MASK; \
139 (t)->Tthrflags |= (s); \
140 DEBUG_L(fprintf(stderr, "thread 0x%lx set to state %d\n", \
141 (unsigned long)(t), (s))); \
144 typedef struct condpair {
145 pthread_mutex_t mutex;
146 pthread_cond_t owner_cond;
151 #define MgMUTEXP(mg) (&((condpair_t *)(mg->mg_ptr))->mutex)
152 #define MgOWNERCONDP(mg) (&((condpair_t *)(mg->mg_ptr))->owner_cond)
153 #define MgCONDP(mg) (&((condpair_t *)(mg->mg_ptr))->cond)
154 #define MgOWNER(mg) ((condpair_t *)(mg->mg_ptr))->owner
166 #undef scopestack_max
184 #define self (thr->Tself)
185 #define stack_base (thr->Tstack_base)
186 #define stack_sp (thr->Tstack_sp)
187 #define stack_max (thr->Tstack_max)
188 #define op (thr->Top)
189 #define stack (thr->Tstack)
190 #define mainstack (thr->Tmainstack)
191 #define markstack (thr->Tmarkstack)
192 #define markstack_ptr (thr->Tmarkstack_ptr)
193 #define markstack_max (thr->Tmarkstack_max)
194 #define scopestack (thr->Tscopestack)
195 #define scopestack_ix (thr->Tscopestack_ix)
196 #define scopestack_max (thr->Tscopestack_max)
198 #define savestack (thr->Tsavestack)
199 #define savestack_ix (thr->Tsavestack_ix)
200 #define savestack_max (thr->Tsavestack_max)
202 #define retstack (thr->Tretstack)
203 #define retstack_ix (thr->Tretstack_ix)
204 #define retstack_max (thr->Tretstack_max)
206 #define cxstack (thr->Tcxstack)
207 #define cxstack_ix (thr->Tcxstack_ix)
208 #define cxstack_max (thr->Tcxstack_max)
210 #define curpad (thr->Tcurpad)
211 #define Sv (thr->TSv)
212 #define Xpv (thr->TXpv)
213 #define defstash (thr->Tdefstash)
214 #define curstash (thr->Tcurstash)
215 #define pad (thr->Tpad)
216 #define padname (thr->Tpadname)
218 #define tmps_stack (thr->Ttmps_stack)
219 #define tmps_ix (thr->Ttmps_ix)
220 #define tmps_floor (thr->Ttmps_floor)
221 #define tmps_max (thr->Ttmps_max)
223 #define in_eval (thr->Tin_eval)
224 #define restartop (thr->Trestartop)
225 #define delaymagic (thr->Tdelaymagic)
226 #define dirty (thr->Tdirty)
227 #define localizing (thr->Tlocalizing)
229 #define top_env (thr->Ttop_env)
230 #define runlevel (thr->Trunlevel)
232 #define threadstart_mutexp (thr->Tthreadstart_mutexp)
233 #define cvcache (thr->Tcvcache)
234 #define thrflags (thr->Tthrflags)
235 #endif /* USE_THREADS */