NetWare/nwtinfo.h

   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             :       NWTInfo.h
  12  * DESCRIPTION  :       Thread-local storage for Perl.
  13  * Author               :       SGP, HYAK
  14  * Date                 :       January 2001.
  15  *
  16  */
  17
  18
  19
  20 #ifndef __NWTInfo_H__
  21 #define __NWTInfo_H__
  22
  23
  24 #include "win32ish.h"           // For "BOOL", "TRUE" and "FALSE"
  25
  26 typedef struct tagThreadInfo
  27 {
  28         int tid;
  29         struct tagThreadInfo *next;
  30         BOOL    m_dontTouchHashLists;
  31         void*   m_allocList;
  32 }ThreadInfo;
  33
  34
  35 void fnInitializeThreadInfo(void);
  36 BOOL fnTerminateThreadInfo(void);
  37 BOOL fnRegisterWithThreadTable(void);
  38 BOOL fnUnregisterWithThreadTable(void);
  39
  40 ThreadInfo* fnAddThreadInfo(int tid);
  41 BOOL fnRemoveThreadInfo(int tid);
  42 ThreadInfo* fnGetThreadInfo(int tid);
  43
  44 //For storing and retrieving Watcom Hash list address
  45 BOOL fnInsertHashListAddrs(void *addrs, BOOL dontTouchHashList);
  46 BOOL fnGetHashListAddrs(void **addrs, BOOL *dontTouchHashList);
  47
  48 //New TLS to set and get the thread contex - may be redundant,
  49 //or see if the above portion can be removed once this works properly
  50 typedef struct tagThreadCtx
  51 {
  52         long tid;
  53         void *tInfo;
  54         struct tagThreadCtx *next;
  55 }ThreadContext;
  56
  57
  58 long fnInitializeThreadCtx(void);
  59 ThreadContext* fnAddThreadCtx(long lTLSIndex, void *t);
  60 BOOL fnRemoveThreadCtx(long lTLSIndex);
  61 void* fnGetThreadCtx(long lTLSIndex);
  62
  63 #endif  // __NWTInfo_H__
  64