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

*Dll_entry: Call SysInitMultiThreading to allocate TlsKey if not yet done

Browse Source 
git-svn-id: trunk@17892 -
This commit is contained in:
pierre 2011-07-01 10:08:40 +00:00
parent 1339c66ec9
commit 128e2e9cc5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win/syswin.inc
View File

@ -52,6 +52,8 @@ function Dll_entry{$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}(const info : TEntry
begin
if Win32GetCurrentThreadId <> MainThreadIdWin32 then
begin
{ Initialize multithreading if not done }
SysInitMultithreading;
{ Allocate Threadvars }
SysAllocateThreadVars;
@ -76,8 +78,8 @@ function Dll_entry{$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}(const info : TEntry
DLL_PROCESS_DETACH :
begin
Dll_entry:=true; { return value is ignored }
if MainThreadIDWin32=0 then // already been here.
exit;
if MainThreadIDWin32=0 then // already been here.
exit;
If SetJmp(DLLBuf) = 0 then
FPC_Do_Exit;
if assigned(Dll_Process_Detach_Hook) then
@ -86,7 +88,7 @@ function Dll_entry{$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}(const info : TEntry
DoneThread;
{ Free TLS resources used by ThreadVars }
SysFiniMultiThreading;
MainThreadIDWin32:=0;
MainThreadIDWin32:=0;
end;
end;
end;