1/**
2 * This file has no copyright assigned and is placed in the Public Domain.
3 * This file is part of the mingw-w64 runtime package.
4 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
5 *
6 * Written by Kai Tietz <kai.tietz@onevision.com>
7 *
8 * This file is used by if gcc is built with --enable-threads=win32.
9 *
10 * Based on version created by Mumit Khan <khan@nanotech.wisc.edu>
11 *
12 */
13
14#ifndef WIN32_LEAN_AND_MEAN
15#define WIN32_LEAN_AND_MEAN
16#endif
17#include <windows.h>
18#include <stdlib.h>
19
20extern void __cdecl __MINGW_NOTHROW _fpreset (void);
21WINBOOL __mingw_TLScallback (HANDLE hDllHandle, DWORD reason, LPVOID reserved);
22int ___w64_mingwthr_remove_key_dtor (DWORD key);
23int ___w64_mingwthr_add_key_dtor (DWORD key, void (*dtor)(void *));
24
25/* To protect the thread/key association data structure modifications. */
26static CRITICAL_SECTION __mingwthr_cs;
27static volatile int __mingwthr_cs_init = 0;
28
29typedef struct __mingwthr_key __mingwthr_key_t;
30
31/* The list of threads active with key/dtor pairs. */
32struct __mingwthr_key {
33 DWORD key;
34 void (*dtor)(void *);
35 __mingwthr_key_t volatile *next;
36};
37
38
39static __mingwthr_key_t volatile *key_dtor_list;
40
41int
42___w64_mingwthr_add_key_dtor (DWORD key, void (*dtor)(void *))
43{
44 __mingwthr_key_t *new_key;
45
46 if (__mingwthr_cs_init == 0)
47 return 0;
48 new_key = (__mingwthr_key_t *) calloc (1, sizeof (__mingwthr_key_t));
49 if (new_key == NULL)
50 return -1;
51
52 new_key->key = key;
53 new_key->dtor = dtor;
54
55 EnterCriticalSection (&__mingwthr_cs);
56
57 new_key->next = key_dtor_list;
58 key_dtor_list = new_key;
59
60 LeaveCriticalSection (&__mingwthr_cs);
61 return 0;
62}
63
64int
65___w64_mingwthr_remove_key_dtor (DWORD key)
66{
67 __mingwthr_key_t volatile *prev_key;
68 __mingwthr_key_t volatile *cur_key;
69
70 if (__mingwthr_cs_init == 0)
71 return 0;
72
73 EnterCriticalSection (&__mingwthr_cs);
74
75 prev_key = NULL;
76 cur_key = key_dtor_list;
77
78 while (cur_key != NULL)
79 {
80 if ( cur_key->key == key)
81 {
82 if (prev_key == NULL)
83 key_dtor_list = cur_key->next;
84 else
85 prev_key->next = cur_key->next;
86
87 free ((void*)cur_key);
88 break;
89 }
90 prev_key = cur_key;
91 cur_key = cur_key->next;
92 }
93
94 LeaveCriticalSection (&__mingwthr_cs);
95 return 0;
96}
97
98static void
99__mingwthr_run_key_dtors (void)
100{
101 __mingwthr_key_t volatile *keyp;
102
103 if (__mingwthr_cs_init == 0)
104 return;
105 EnterCriticalSection (&__mingwthr_cs);
106
107 for (keyp = key_dtor_list; keyp; )
108 {
109 LPVOID value = TlsGetValue (keyp->key);
110 if (GetLastError () == ERROR_SUCCESS)
111 {
112 if (value)
113 (*keyp->dtor) (value);
114 }
115 keyp = keyp->next;
116 }
117
118 LeaveCriticalSection (&__mingwthr_cs);
119}
120
121WINBOOL
122__mingw_TLScallback (HANDLE __UNUSED_PARAM(hDllHandle),
123 DWORD reason,
124 LPVOID __UNUSED_PARAM(reserved))
125{
126 switch (reason)
127 {
128 case DLL_PROCESS_ATTACH:
129 if (__mingwthr_cs_init == 0)
130 InitializeCriticalSection (&__mingwthr_cs);
131 __mingwthr_cs_init = 1;
132 break;
133 case DLL_PROCESS_DETACH:
134 __mingwthr_run_key_dtors();
135 if (__mingwthr_cs_init == 1)
136 {
137 __mingwthr_key_t volatile *keyp, *t;
138 for (keyp = key_dtor_list; keyp; )
139 {
140 t = keyp->next;
141 free((void *)keyp);
142 keyp = t;
143 }
144 key_dtor_list = NULL;
145 __mingwthr_cs_init = 0;
146 DeleteCriticalSection (&__mingwthr_cs);
147 }
148 break;
149 case DLL_THREAD_ATTACH:
150 _fpreset();
151 break;
152 case DLL_THREAD_DETACH:
153 __mingwthr_run_key_dtors();
154 break;
155 }
156 return TRUE;
157}
158