blob: f93d5e35850cf26eb25c3da087498d867ac4d7b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#include "EXTERN.h"
#include "perl.h"
void
init_thread_intern(struct thread *thr)
{
#ifdef USE_THREADS
static int key_allocated = 0;
DuplicateHandle(GetCurrentProcess(),
GetCurrentThread(),
GetCurrentProcess(),
&thr->self,
0,
FALSE,
DUPLICATE_SAME_ACCESS);
if (!key_allocated) {
if ((thr_key = TlsAlloc()) == TLS_OUT_OF_INDEXES)
croak("panic: TlsAlloc");
key_allocated = 1;
}
if (TlsSetValue(thr_key, (LPVOID) thr) != TRUE)
croak("panic: TlsSetValue");
#endif
}
#ifdef USE_THREADS
int
Perl_thread_create(struct thread *thr, thread_func_t *fn)
{
DWORD junk;
MUTEX_LOCK(&thr->mutex);
thr->self = CreateThread(NULL, 0, fn, (void*)thr, 0, &junk);
MUTEX_UNLOCK(&thr->mutex);
return thr->self ? 0 : -1;
}
#endif
|
