win32/win32thread.c

   1 #include "EXTERN.h"
   2 #include "perl.h"
   3
   4 void
   5 Perl_alloc_thread_key(void)
   6 {
   7 #ifdef USE_THREADS
   8     static int key_allocated = 0;
   9     if (!key_allocated) {
  10         if ((thr_key = TlsAlloc()) == TLS_OUT_OF_INDEXES)
  11             croak("panic: TlsAlloc");
  12         key_allocated = 1;
  13     }
  14 #endif
  15 }
  16
  17 void
  18 init_thread_intern(struct thread *thr)
  19 {
  20 #ifdef USE_THREADS
  21     /* Set thr->self.  GetCurrentThread() retrurns a pseudo handle, need
  22        this to convert it into a handle another thread can use.
  23      */
  24     DuplicateHandle(GetCurrentProcess(),
  25                     GetCurrentThread(),
  26                     GetCurrentProcess(),
  27                     &thr->self,
  28                     0,
  29                     FALSE,
  30                     DUPLICATE_SAME_ACCESS);
  31     /* XXX init thr->i here */
  32 #endif
  33 }
  34
  35 #ifdef USE_THREADS
  36 int
  37 Perl_thread_create(struct thread *thr, thread_func_t *fn)
  38 {
  39     DWORD junk;
  40
  41     MUTEX_LOCK(&thr->mutex);
  42     DEBUG_L(PerlIO_printf(PerlIO_stderr(),
  43                           "%p: create OS thread\n", thr));
  44     thr->self = CreateThread(NULL, 0, fn, (void*)thr, 0, &junk);
  45     DEBUG_L(PerlIO_printf(PerlIO_stderr(),
  46                           "%p: OS thread = %p, id=%ld\n", thr, thr->self, junk));
  47     MUTEX_UNLOCK(&thr->mutex);
  48     return thr->self ? 0 : -1;
  49 }
  50 #endif