10 #include <win32thread.h>
17 PerlInterpreter *interp; /* The threads interpreter */
18 I32 tid; /* Our thread */
19 perl_mutex mutex; /* our mutex */
20 I32 count; /* how many threads have a reference to us */
21 signed char detached; /* are we detached ? */
34 static perl_mutex create_mutex; /* protects the creation of threads ??? */
46 /* internal functions */
48 THREAD_RET_TYPE thread_run(LPVOID arg);
50 void thread_run(ithread* thread);
52 void thread_destruct(ithread* thread);
54 /* Perl mapped functions to iThread:: */
55 SV* thread_create(char* class, SV* function_to_call, SV* params);
56 I32 thread_tid (SV* obj);
57 void thread_join(SV* obj);
58 void thread_detach(SV* obj);
59 SV* thread_self (char* class);