source: trunk/src/kernel32/wintls.cpp@ 281

Last change on this file since 281 was 281, checked in by sandervl, 26 years ago

Major changes in PE2LX/KERNEL32 for TLS support. DLL VERSION INCREASED TO 3 AS THIS CHANGE MAKES IT INCOMPATIBLE WITH APPS CONVERTED WITH PREVIOUS VERSION OF PE2LX (OR WIN32K)
File size: 5.1 KB
Line 
1/* $Id: wintls.cpp,v 1.1 1999-07-07 08:11:58 sandervl Exp $ */
2/*
3 * Win32 TLS API functions
4 *
5 * Copyright 1998 Sander van Leeuwen (sandervl@xs4all.nl)
6 *
7 *
8 * Project Odin Software License can be found in LICENSE.TXT
9 *
10 */
11#include <os2win.h>
12#include <winimage.h>
13#include <thread.h>
14#include <wprocess.h>
15
16//******************************************************************************
17//******************************************************************************
18void Win32Image::tlsAlloc() //Allocate TLS index for this module
19{
20 if(!tlsAddress)
21 return;
22
23 tlsIndex = TlsAlloc();
24 if(tlsIndex >= TLS_MINIMUM_AVAILABLE) {
25 dprintf(("tlsAttachThread: invalid tlsIndex %x!!!!", tlsIndex));
26 DebugInt3();
27 return;
28 }
29 dprintf(("Win32Image::tlsAlloc (%d) for module %x", tlsIndex, hinstance));
30}
31//******************************************************************************
32//******************************************************************************
33void Win32Image::tlsDelete() //Free TLS index for this module
34{
35 if(!tlsAddress)
36 return;
37
38 if(tlsIndex >= TLS_MINIMUM_AVAILABLE) {
39 dprintf(("tlsAttachThread: invalid tlsIndex %x!!!!", tlsIndex));
40 DebugInt3();
41 return;
42 }
43 dprintf(("Win32Image::tlsDestroy (%d) for module %x", tlsIndex, hinstance));
44 TlsFree(tlsIndex);
45 tlsIndex = -1;
46}
47//******************************************************************************
48//******************************************************************************
49void Win32Image::tlsAttachThread() //setup TLS structures for new thread
50{
51 PIMAGE_TLS_CALLBACK *pCallback;
52 TEB *winteb;
53 char *tibmem;
54
55 if(!tlsAddress)
56 return;
57
58 if(tlsIndex >= TLS_MINIMUM_AVAILABLE) {
59 dprintf(("tlsAttachThread: invalid tlsIndex %x!!!!", tlsIndex));
60 DebugInt3();
61 return;
62 }
63
64 dprintf(("Win32Image::tlsAttachThread for module %x, thread id %x", hinstance, GetCurrentThreadId()));
65 dprintf(("tlsAddress: %x", tlsAddress));
66 dprintf(("tlsInitSize: %x", tlsInitSize));
67 dprintf(("tlsTotalSize %x", tlsTotalSize));
68 dprintf(("tlsIndexAddr %x", tlsIndexAddr));
69 dprintf(("tlsCallbackAddr %x", tlsCallBackAddr));
70 dprintf(("*tlsCallbackAddr %x", *tlsCallBackAddr));
71 tibmem = (char *)VirtualAlloc(0, tlsTotalSize, MEM_RESERVE|MEM_COMMIT, PAGE_READWRITE);
72 if(tibmem == NULL) {
73 dprintf(("tlsAttachThread: tibmem == NULL!!!!"));
74 DebugInt3();
75 return;
76 }
77 memset(tibmem, 0, tlsTotalSize);
78 memcpy(tibmem, tlsAddress, tlsInitSize);
79
80 winteb = (TEB *)TIBFlatPtr;
81 winteb->tls_ptr[tlsIndex] = tibmem;
82 *tlsIndexAddr = tlsIndex;
83
84 if((ULONG)*tlsCallBackAddr != 0) {
85 pCallback = tlsCallBackAddr;
86 while(*pCallback) {
87 dprintf(("tlsAttachThread: calling TLS Callback %x", *pCallback));
88 (*pCallback)((LPVOID)hinstance, DLL_THREAD_ATTACH, 0);
89 dprintf(("tlsAttachThread: finished calling TLS Callback %x", *pCallback));
90 *pCallback++;
91 }
92 }
93 return;
94}
95//******************************************************************************
96//******************************************************************************
97void Win32Image::tlsDetachThread() //destroy TLS structures
98{
99 PIMAGE_TLS_CALLBACK *pCallback;
100 TEB *winteb;
101
102 if(!tlsAddress)
103 return;
104
105 dprintf(("Win32Image::tlsDetachThread for module %x, thread id %x", hinstance, GetCurrentThreadId()));
106
107 if((ULONG)*tlsCallBackAddr != 0) {
108 pCallback = tlsCallBackAddr;
109 while(*pCallback) {
110 dprintf(("tlsDetachThread: calling TLS Callback %x", *pCallback));
111 (*pCallback)((LPVOID)hinstance, DLL_THREAD_DETACH, 0);
112 dprintf(("tlsDetachThread: finished calling TLS Callback %x", *pCallback));
113 *pCallback++;
114 }
115 }
116 winteb = (TEB *)TIBFlatPtr;
117 VirtualFree(winteb->tls_ptr[tlsIndex], tlsTotalSize, MEM_RELEASE);
118
119 TlsFree(tlsIndex);
120}
121//******************************************************************************
122//******************************************************************************
123
124//******************************************************************************
125//******************************************************************************
126DWORD WIN32API TlsAlloc()
127{
128 dprintf(("KERNEL32: TlsAlloc\n"));
129 return(O32_TlsAlloc());
130}
131//******************************************************************************
132//******************************************************************************
133BOOL WIN32API TlsFree(DWORD index)
134{
135 dprintf(("KERNEL32: TlsFree\n"));
136 return(O32_TlsFree(index));
137}
138//******************************************************************************
139//******************************************************************************
140LPVOID WIN32API TlsGetValue(DWORD index)
141{
142 LPVOID rc;
143
144 rc = O32_TlsGetValue(index);
145// dprintf(("KERNEL32: TlsGetValue %d returned %X\n", index, rc));
146 return(rc);
147}
148//******************************************************************************
149//******************************************************************************
150BOOL WIN32API TlsSetValue(DWORD index, LPVOID val)
151{
152// dprintf(("KERNEL32: TlsSetValue\n"));
153 return(O32_TlsSetValue(index, val));
154}
155//******************************************************************************
156//******************************************************************************
Note: See TracBrowser for help on using the repository browser.