NetWare/nw5thread.c

   1
   2 /*
   3  * Copyright © 2001 Novell, Inc. All Rights Reserved.
   4  *
   5  * You may distribute under the terms of either the GNU General Public
   6  * License or the Artistic License, as specified in the README file.
   7  *
   8  */
   9
  10 /*
  11  * FILENAME             :       nw5thread.c
  12  * DESCRIPTION  :       Thread related functions.
  13  * Author               :       SGP
  14  * Date                 :       January 2001.
  15  *
  16  */
  17
  18
  19
  20 #include "EXTERN.h"
  21 #include "perl.h"
  22
  23 #if defined(PERL_OBJECT)
  24 #define NO_XSLOCKS
  25 extern CPerlObj* pPerl;
  26 #include "XSUB.h"
  27 #endif
  28
  29 //For Thread Local Storage
  30 #include "win32ish.h"           // For "BOOL", "TRUE" and "FALSE"
  31 #include "nwtinfo.h"
  32
  33 #ifdef USE_DECLSPEC_THREAD
  34 __declspec(thread) void *PL_current_context = NULL;
  35 #endif
  36
  37
  38 void
  39 Perl_set_context(void *t)
  40 {
  41 #if defined(USE_THREADS) || defined(USE_ITHREADS)
  42 #  ifdef USE_DECLSPEC_THREAD
  43     Perl_current_context = t;
  44 #  else
  45         fnAddThreadCtx(PL_thr_key, t);
  46 #  endif
  47 #endif
  48 }
  49
  50
  51 void *
  52 Perl_get_context(void)
  53 {
  54 #if defined(USE_THREADS) || defined(USE_ITHREADS)
  55 #  ifdef USE_DECLSPEC_THREAD
  56     return Perl_current_context;
  57 #  else
  58         return(fnGetThreadCtx(PL_thr_key));
  59 #  endif
  60 #else
  61     return NULL;
  62 #endif
  63 }
  64
  65
  66 //To Remove the Thread Context stored during Perl_set_context
  67 BOOL
  68 Remove_Thread_Ctx(void)
  69 {
  70 #if defined(USE_THREADS) || defined(USE_ITHREADS)
  71 #  ifdef USE_DECLSPEC_THREAD
  72         return TRUE;
  73 #  else
  74         return(fnRemoveThreadCtx(PL_thr_key));
  75 #  endif
  76 #  else
  77         return TRUE;
  78 #endif
  79 }
  80
  81
  82 //PL_thr_key - Not very sure if this is global or per thread.  When multiple scripts
  83 //run simultaneously on NetWare, this will give problems.  Hence in nwtinfo.c, the
  84 //current thread id is used as the TLS index & PL_thr_key is not used.
  85 //This has to be checked???? - sgp
  86