paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* deallocate thread variables for the main thread as well, as described in #15002

Browse Source 
git-svn-id: trunk@14201 -
This commit is contained in:
florian 2009-11-16 19:36:32 +00:00
parent 805e5a79c6
commit c288e6c105
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/win/syswin.inc
View File

@ -54,7 +54,7 @@ function Dll_entry{$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}(const info : TEntry
DLL_THREAD_ATTACH : DLL_THREAD_ATTACH :
begin begin
inclocked(Thread_count); inclocked(Thread_count);
WinEnterCriticalSection(AttachingThread); WinEnterCriticalSection(AttachingThread);
if (Win32GetCurrentThreadId <> MainThreadIdWin32) then if (Win32GetCurrentThreadId <> MainThreadIdWin32) then
begin begin
@ -89,6 +89,7 @@ function Dll_entry{$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}(const info : TEntry
if assigned(Dll_Process_Detach_Hook) then if assigned(Dll_Process_Detach_Hook) then
Dll_Process_Detach_Hook(DllParam); Dll_Process_Detach_Hook(DllParam);
DoneThread;
{ Free TLS resources used by ThreadVars } { Free TLS resources used by ThreadVars }
SysFiniMultiThreading; SysFiniMultiThreading;
WinDoneCriticalSection(AttachingThread); WinDoneCriticalSection(AttachingThread);