1 /* Time-stamp: <01/08/01 21:00:29 keuchel@w2k> */
6 #ifdef USE_DECLSPEC_THREAD
7 __declspec(thread) void *PL_current_context = NULL;
11 Perl_set_context(void *t)
13 #if defined(USE_ITHREADS)
14 # ifdef USE_DECLSPEC_THREAD
15 Perl_current_context = t;
17 DWORD err = GetLastError();
18 TlsSetValue(PL_thr_key,t);
25 Perl_get_context(void)
27 #if defined(USE_ITHREADS)
28 # ifdef USE_DECLSPEC_THREAD
29 return Perl_current_context;
31 DWORD err = GetLastError();
32 void *result = TlsGetValue(PL_thr_key);