This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
AIX patch (including Configure support for {sched,pthread}_yield,
[perl5.git] / win32 / win32thread.c
1 #include "EXTERN.h"
2 #include "perl.h"
3
4 void
5 Perl_alloc_thread_key(void)
6 {
7 #ifdef USE_THREADS
8     static int key_allocated = 0;
9     if (!key_allocated) {
10         if ((thr_key = TlsAlloc()) == TLS_OUT_OF_INDEXES)
11             croak("panic: TlsAlloc");
12         key_allocated = 1;
13     }
14 #endif
15 }
16
17 void
18 Perl_set_thread_self(struct perl_thread *thr)
19 {
20 #ifdef USE_THREADS
21     /* Set thr->self.  GetCurrentThread() retrurns a pseudo handle, need
22        this to convert it into a handle another thread can use.
23      */
24     DuplicateHandle(GetCurrentProcess(),
25                     GetCurrentThread(),
26                     GetCurrentProcess(),
27                     &thr->self,
28                     0,
29                     FALSE,
30                     DUPLICATE_SAME_ACCESS);
31 #endif
32 }
33
34 #ifdef USE_THREADS
35 int
36 Perl_thread_create(struct perl_thread *thr, thread_func_t *fn)
37 {
38     DWORD junk;
39
40     MUTEX_LOCK(&thr->mutex);
41     DEBUG_L(PerlIO_printf(PerlIO_stderr(),
42                           "%p: create OS thread\n", thr));
43     thr->self = CreateThread(NULL, 0, fn, (void*)thr, 0, &junk);
44     DEBUG_L(PerlIO_printf(PerlIO_stderr(),
45                           "%p: OS thread = %p, id=%ld\n", thr, thr->self, junk));
46     MUTEX_UNLOCK(&thr->mutex);
47     return thr->self ? 0 : -1;
48 }
49 #endif