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
38
|
#include "EXTERN.h"
#include "perl.h"
#ifdef USE_DECLSPEC_THREAD
__declspec(thread) void *PL_current_context = NULL;
#endif
void
Perl_set_context(void *t)
{
#if defined(USE_ITHREADS)
# ifdef USE_DECLSPEC_THREAD
Perl_current_context = t;
PERL_SET_NON_tTHX_CONTEXT(t);
# else
DWORD err = GetLastError();
TlsSetValue(PL_thr_key,t);
SetLastError(err);
# endif
#endif
}
void *
Perl_get_context(void)
{
#if defined(USE_ITHREADS)
# ifdef USE_DECLSPEC_THREAD
return Perl_current_context;
# else
DWORD err = GetLastError();
void *result = TlsGetValue(PL_thr_key);
SetLastError(err);
return result;
# endif
#else
return NULL;
#endif
}
|
