2 * msvcrt.dll initialisation functions
4 * Copyright 2000 Jon Griffiths
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23 #include "wine/debug.h"
25 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt
);
28 DWORD msvcrt_tls_index
;
30 static const char* msvcrt_get_reason(DWORD reason
)
34 case DLL_PROCESS_ATTACH
: return "DLL_PROCESS_ATTACH";
35 case DLL_PROCESS_DETACH
: return "DLL_PROCESS_DETACH";
36 case DLL_THREAD_ATTACH
: return "DLL_THREAD_ATTACH";
37 case DLL_THREAD_DETACH
: return "DLL_THREAD_DETACH";
42 static inline BOOL
msvcrt_init_tls(void)
44 msvcrt_tls_index
= TlsAlloc();
46 if (msvcrt_tls_index
== TLS_OUT_OF_INDEXES
)
48 ERR("TlsAlloc() failed!\n");
54 static inline BOOL
msvcrt_free_tls(void)
56 if (!TlsFree(msvcrt_tls_index
))
58 ERR("TlsFree() failed!\n");
64 static inline void msvcrt_free_tls_mem(void)
66 thread_data_t
*tls
= TlsGetValue(msvcrt_tls_index
);
70 CloseHandle(tls
->handle
);
71 HeapFree(GetProcessHeap(),0,tls
->efcvt_buffer
);
72 HeapFree(GetProcessHeap(),0,tls
->asctime_buffer
);
73 HeapFree(GetProcessHeap(),0,tls
->wasctime_buffer
);
74 HeapFree(GetProcessHeap(),0,tls
->strerror_buffer
);
75 HeapFree(GetProcessHeap(),0,tls
->wcserror_buffer
);
76 HeapFree(GetProcessHeap(),0,tls
->time_buffer
);
77 HeapFree(GetProcessHeap(),0,tls
->tmpnam_buffer
);
78 HeapFree(GetProcessHeap(),0,tls
->wtmpnam_buffer
);
79 if(tls
->have_locale
) {
80 free_locinfo(tls
->locinfo
);
81 free_mbcinfo(tls
->mbcinfo
);
84 HeapFree(GetProcessHeap(), 0, tls
);
87 /*********************************************************************
90 BOOL WINAPI
DllMain(HINSTANCE hinstDLL
, DWORD fdwReason
, LPVOID lpvReserved
)
92 TRACE("(%p, %s, %p) pid(%x), tid(%x), tls(%u)\n",
93 hinstDLL
, msvcrt_get_reason(fdwReason
), lpvReserved
,
94 GetCurrentProcessId(), GetCurrentThreadId(),
99 case DLL_PROCESS_ATTACH
:
100 msvcrt_init_exception(hinstDLL
);
101 if (!msvcrt_init_tls())
103 msvcrt_init_mt_locks();
104 if(!msvcrt_init_locale()) {
105 msvcrt_free_mt_locks();
106 msvcrt_free_tls_mem();
111 msvcrt_init_console();
113 msvcrt_init_signals();
114 /* don't allow unloading msvcrt, we can't setup file handles twice */
115 LdrAddRefDll( 0, hinstDLL
);
116 TRACE("finished process init\n");
118 case DLL_THREAD_ATTACH
:
120 case DLL_PROCESS_DETACH
:
122 msvcrt_free_mt_locks();
123 msvcrt_free_console();
125 msvcrt_free_signals();
126 msvcrt_free_tls_mem();
127 if (!msvcrt_free_tls())
129 MSVCRT__free_locale(MSVCRT_locale
);
130 TRACE("finished process free\n");
132 case DLL_THREAD_DETACH
:
133 msvcrt_free_tls_mem();
134 TRACE("finished thread free\n");