paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 11:53:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

AThreads: ThreadInfo for the main thread move to a global var to prevent problems with heap manager

Browse Source
This commit is contained in:
Marcus Sackrow 2023-02-19 14:09:29 +01:00
parent 5fe9ed18d9
commit 1cacbeff1e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/amicommon/athreads.pp
View File

@ -93,6 +93,7 @@ type
var var
AThreadManager: TThreadManager; AThreadManager: TThreadManager;
AThreadMainThreadInfo: TThreadInfo;
AThreadList: PThreadInfo; AThreadList: PThreadInfo;
AThreadListLen: LongInt; AThreadListLen: LongInt;
AThreadNum: LongInt; AThreadNum: LongInt;
@ -404,7 +405,10 @@ begin
SysDebugLn('FPC AThreads: Entering multithreaded mode...'); SysDebugLn('FPC AThreads: Entering multithreaded mode...');
{$endif} {$endif}
p:=PProcess(FindTask(nil)); p:=PProcess(FindTask(nil));
new(threadInfo); { the main thread info is allocated as a global var, it is the cleanest solution,
as it can never really be freed after threading was initialized, due to clashes
with threadvar handling in heap managers, etc. }
threadInfo:=@AThreadMainThreadInfo;
FillChar(threadInfo^,sizeof(TThreadInfo),0); FillChar(threadInfo^,sizeof(TThreadInfo),0);
p^.pr_Task.tc_UserData:=threadInfo; p^.pr_Task.tc_UserData:=threadInfo;
threadInfo^.mainThread:=true; threadInfo^.mainThread:=true;