#include "EXTERN.h"
#include "perl.h"
+#ifdef USE_DECLSPEC_THREAD
+__declspec(thread) struct perl_thread *Perl_current_thread = NULL;
+#endif
+
+void
+Perl_setTHR(struct perl_thread *t)
+{
+#ifdef USE_DECLSPEC_THREAD
+ Perl_current_thread = t;
+#else
+ TlsSetValue(thr_key,t);
+#endif
+}
+
+struct perl_thread *
+Perl_getTHR(void)
+{
+#ifdef USE_DECLSPEC_THREAD
+ return Perl_current_thread;
+#else
+ return (struct perl_thread *) TlsGetValue(thr_key);
+#endif
+}
+
void
Perl_alloc_thread_key(void)
{
}
void
-init_thread_intern(struct thread *thr)
+Perl_set_thread_self(struct perl_thread *thr)
{
#ifdef USE_THREADS
/* Set thr->self. GetCurrentThread() retrurns a pseudo handle, need
0,
FALSE,
DUPLICATE_SAME_ACCESS);
- /* XXX init thr->i here */
#endif
}
#ifdef USE_THREADS
int
-Perl_thread_create(struct thread *thr, thread_func_t *fn)
+Perl_thread_create(struct perl_thread *thr, thread_func_t *fn)
{
DWORD junk;