3 * Copyright © 2001 Novell, Inc. All Rights Reserved.
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.
11 * FILENAME : NWTInfo.h
12 * DESCRIPTION : Thread-local storage for Perl.
14 * Date Created : January 2001.
15 * Date Modified: July 2nd 2001.
24 #include "win32ish.h" // For "BOOL", "TRUE" and "FALSE"
26 typedef struct tagThreadInfo
29 struct tagThreadInfo *next;
30 BOOL m_dontTouchHashLists;
34 void fnInitializeThreadInfo(void);
35 BOOL fnTerminateThreadInfo(void);
37 ThreadInfo* fnAddThreadInfo(int tid);
38 BOOL fnRemoveThreadInfo(int tid);
39 ThreadInfo* fnGetThreadInfo(int tid);
42 //For storing and retrieving Watcom Hash list address
43 extern "C" BOOL fnInsertHashListAddrs(void *addrs, BOOL dontTouchHashList);
44 //Registering with the Thread table
45 extern "C" BOOL fnRegisterWithThreadTable(void);
46 extern "C" BOOL fnUnregisterWithThreadTable(void);
48 //For storing and retrieving Watcom Hash list address
49 BOOL fnInsertHashListAddrs(void *addrs, BOOL dontTouchHashList);
50 //Registering with the Thread table
51 BOOL fnRegisterWithThreadTable(void);
52 BOOL fnUnregisterWithThreadTable(void);
55 BOOL fnGetHashListAddrs(void **addrs, BOOL *dontTouchHashList);
57 //New TLS to set and get the thread contex - may be redundant,
58 //or see if the above portion can be removed once this works properly
59 typedef struct tagThreadCtx
63 struct tagThreadCtx *next;
67 long fnInitializeThreadCtx(void);
68 ThreadContext* fnAddThreadCtx(long lTLSIndex, void *t);
69 BOOL fnRemoveThreadCtx(long lTLSIndex);
70 void* fnGetThreadCtx(long lTLSIndex);
72 #endif // __NWTInfo_H__