#include "EXTERN.h"
#include "perl.h"
-__declspec(thread) struct thread *Perl_current_thread = NULL;
+#ifdef USE_DECLSPEC_THREAD
+__declspec(thread) struct perl_thread *Perl_current_thread = NULL;
+#endif
void
-Perl_setTHR(struct thread *t)
+Perl_setTHR(struct perl_thread *t)
{
+#ifdef USE_DECLSPEC_THREAD
Perl_current_thread = t;
+#else
+ TlsSetValue(thr_key,t);
+#endif
}
-struct thread *
+struct perl_thread *
Perl_getTHR(void)
{
+#ifdef USE_DECLSPEC_THREAD
return Perl_current_thread;
+#else
+ return (struct perl_thread *) TlsGetValue(thr_key);
+#endif
}
void