10 #include <win32thread.h>
11 #define PERL_THREAD_DETACH(t)
12 #define PERL_THREAD_SET_SPECIFIC(k,v) TlsSetValue(k,v)
13 #define PERL_THREAD_GET_SPECIFIC(k) TlsGetValue(k)
14 #define PERL_THREAD_ALLOC_SPECIFIC(k) \
16 if((k = TlsAlloc()) == TLS_OUT_OF_INDEXES) {\
17 PerlIO_printf(PerlIO_stderr(),"panic threads.h: TlsAlloc");\
25 #define PERL_THREAD_SET_SPECIFIC(k,v) pthread_setspecific(k,v)
26 #define PERL_THREAD_GET_SPECIFIC(k) PTHREAD_GETSPECIFIC(k)
27 #define PERL_THREAD_ALLOC_SPECIFIC(k) STMT_START {\
28 if(pthread_key_create(&(k),0)) {\
29 PerlIO_printf(PerlIO_stderr(), "panic threads.h: pthread_key_create");\
33 #ifdef OLD_PTHREADS_API
34 #define PERL_THREAD_DETACH(t) pthread_detach(&(t))
36 #define PERL_THREAD_DETACH(t) pthread_detach((t))
41 PerlInterpreter *interp; /* The threads interpreter */
42 I32 tid; /* Our thread */
43 perl_mutex mutex; /* our mutex */
44 I32 count; /* how many threads have a reference to us */
45 signed char detached; /* are we detached ? */
58 static perl_mutex create_mutex; /* protects the creation of threads ??? */
70 /* internal functions */
72 THREAD_RET_TYPE Perl_thread_run(LPVOID arg);
74 void* Perl_thread_run(void * arg);
76 void Perl_thread_destruct(ithread* thread);
78 /* Perl mapped functions to iThread:: */
79 SV* Perl_thread_create(char* class, SV* function_to_call, SV* params);
80 I32 Perl_thread_tid (SV* obj);
81 void Perl_thread_join(SV* obj);
82 void Perl_thread_detach(SV* obj);
83 SV* Perl_thread_self (char* class);