Browse Source

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

git-svn-id: trunk@14201 -
florian 15 years ago
parent
commit
c288e6c105
1 changed files with 2 additions and 1 deletions
  1. 2 1
      rtl/win/syswin.inc

+ 2 - 1
rtl/win/syswin.inc

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