diff options
Diffstat (limited to 'winsup/mingw/tlssup.c')
| -rw-r--r-- | winsup/mingw/tlssup.c | 184 |
1 files changed, 0 insertions, 184 deletions
diff --git a/winsup/mingw/tlssup.c b/winsup/mingw/tlssup.c deleted file mode 100644 index 4a152b45b..000000000 --- a/winsup/mingw/tlssup.c +++ /dev/null @@ -1,184 +0,0 @@ -/** - * This file has no copyright assigned and is placed in the Public Domain. - * This file is part of the w64 mingw-runtime package. - * No warranty is given; refer to the file DISCLAIMER within this package. - * - * Written by Kai Tietz <kai.tietz@onevision.com> - */ - -#ifdef CRTDLL -#undef CRTDLL -#endif - -#include <windows.h> -#include <stdio.h> -#include <memory.h> -#include <malloc.h> - -#ifndef _CRTALLOC -#define _CRTALLOC(x) __attribute__ ((section (x) )) -#endif - -#ifndef __INTERNAL_FUNC_DEFINED -#define __INTERNAL_FUNC_DEFINED - typedef void (__cdecl *_PVFV)(void); - typedef int (__cdecl *_PIFV)(void); - typedef void (__cdecl *_PVFI)(int); -#endif - -extern WINBOOL __mingw_TLScallback (HANDLE hDllHandle, DWORD reason, LPVOID reserved); - -#define FUNCS_PER_NODE 30 - -typedef struct TlsDtorNode { - int count; - struct TlsDtorNode *next; - _PVFV funcs[FUNCS_PER_NODE]; -} TlsDtorNode; - -ULONG _tls_index = 0; - -/* TLS raw template data start and end. */ -_CRTALLOC(".tls$AAA") char _tls_start = 0; -_CRTALLOC(".tls$ZZZ") char _tls_end = 0; - -_CRTALLOC(".CRT$XLA") PIMAGE_TLS_CALLBACK __xl_a = 0; -_CRTALLOC(".CRT$XLZ") PIMAGE_TLS_CALLBACK __xl_z = 0; - -#ifdef _WIN64 -_CRTALLOC(".tls") const IMAGE_TLS_DIRECTORY64 _tls_used = { - (ULONGLONG) &_tls_start+1, (ULONGLONG) &_tls_end, (ULONGLONG) &_tls_index, - (ULONGLONG) (&__xl_a+1), (ULONG) 0, (ULONG) 0 -}; -#else -_CRTALLOC(".tls") const IMAGE_TLS_DIRECTORY _tls_used = { - (ULONG)(ULONG_PTR) &_tls_start+1, (ULONG)(ULONG_PTR) &_tls_end, - (ULONG)(ULONG_PTR) &_tls_index, (ULONG)(ULONG_PTR) (&__xl_a+1), - (ULONG) 0, (ULONG) 0 -}; -#endif - -#ifndef __CRT_THREAD -#ifdef HAVE_ATTRIBUTE_THREAD -#define __CRT_THREAD __declspec(thread) -#else -#define __CRT_THREAD __thread -#endif -#endif - -#define DISABLE_MS_TLS 1 - -static _CRTALLOC(".CRT$XDA") _PVFV __xd_a = 0; -static _CRTALLOC(".CRT$XDZ") _PVFV __xd_z = 0; - -#if !defined (DISABLE_MS_TLS) -static __CRT_THREAD TlsDtorNode *dtor_list; -static __CRT_THREAD TlsDtorNode dtor_list_head; -#endif - -extern int _CRT_MT; - -BOOL WINAPI __dyn_tls_init (HANDLE, DWORD, LPVOID); - -BOOL WINAPI -__dyn_tls_init (HANDLE hDllHandle, DWORD dwReason, LPVOID lpreserved) -{ - _PVFV *pfunc; - int nfuncs, ifunc; - - /* We don't let us trick here. */ - if (_CRT_MT != 2) - _CRT_MT = 2; - - if (dwReason != DLL_THREAD_ATTACH) - { - if (dwReason == DLL_PROCESS_ATTACH) - __mingw_TLScallback (hDllHandle, dwReason, lpreserved); - return TRUE; - } - - /* Use the nfuncs variable to iterate the TLS functions instead of pfunc to - avoid nasty compiler optimizations when comparing two global pointers. */ - nfuncs = &__xd_z - (&__xd_a + 1); - for (ifunc=0; ifunc < nfuncs; ++ifunc) - { - pfunc = (&__xd_a + 1) + ifunc; - if (*pfunc != NULL) - (*pfunc)(); - } - return TRUE; -} - -const PIMAGE_TLS_CALLBACK __dyn_tls_init_callback = (const PIMAGE_TLS_CALLBACK) __dyn_tls_init; -_CRTALLOC(".CRT$XLC") PIMAGE_TLS_CALLBACK __xl_c = (PIMAGE_TLS_CALLBACK) __dyn_tls_init; - -int __cdecl __tlregdtor (_PVFV); - -int __cdecl -__tlregdtor (_PVFV func) -{ - if (!func) - return 0; -#if !defined (DISABLE_MS_TLS) - if (dtor_list == NULL) - { - dtor_list = &dtor_list_head; - dtor_list_head.count = 0; - } - else if (dtor_list->count == FUNCS_PER_NODE) - { - TlsDtorNode *pnode = (TlsDtorNode *) malloc (sizeof (TlsDtorNode)); - if (pnode == NULL) - return -1; - pnode->count = 0; - pnode->next = dtor_list; - dtor_list = pnode; - - dtor_list->count = 0; - } - dtor_list->funcs[dtor_list->count++] = func; -#endif - return 0; -} - -static BOOL WINAPI -__dyn_tls_dtor (HANDLE hDllHandle, DWORD dwReason, LPVOID lpreserved) -{ -#if !defined (DISABLE_MS_TLS) - TlsDtorNode *pnode, *pnext; - int i; -#endif - - if (dwReason != DLL_THREAD_DETACH && dwReason != DLL_PROCESS_DETACH) - return TRUE; - /* As TLS variables are detroyed already by DLL_THREAD_DETACH - call, we have to avoid access on the possible DLL_PROCESS_DETACH - call the already destroyed TLS vars. - TODO: The used local thread based variables have to be handled - manually, so that we can control their lifetime here. */ -#if !defined (DISABLE_MS_TLS) - if (dwReason != DLL_PROCESS_DETACH) - { - for (pnode = dtor_list; pnode != NULL; pnode = pnext) - { - for (i = pnode->count - 1; i >= 0; --i) - { - if (pnode->funcs[i] != NULL) - (*pnode->funcs[i])(); - } - pnext = pnode->next; - if (pnext != NULL) - free ((void *) pnode); - } - } -#endif - __mingw_TLScallback (hDllHandle, dwReason, lpreserved); - return TRUE; -} - -_CRTALLOC(".CRT$XLD") PIMAGE_TLS_CALLBACK __xl_d = (PIMAGE_TLS_CALLBACK) __dyn_tls_dtor; - - -int mingw_initltsdrot_force = 0; -int mingw_initltsdyn_force=0; -int mingw_initltssuo_force = 0; |