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

* Add Current and CurrentIsMain

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-01-15 14:19:42 +01:00
parent f506df022e
commit 49100cc42b
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/classes/classes.inc
View File

@ -434,6 +434,13 @@ procedure TThread.DoneSynchronizeEvent;
end;
class function TThread.CurrentIsMain : Boolean;
begin
Result:=TThread.Current.ThreadID=MainThreadID;
end;
class procedure TThread.Synchronize(AThread: TThread; AMethod: TThreadMethod);
var
syncentry: PThreadQueueEntry;

2
rtl/objpas/classes/classesh.inc
View File

@ -2328,7 +2328,9 @@ type
procedure Suspend; deprecated;
procedure Terminate;
function WaitFor: Integer;
class function CurrentIsMain : Boolean; static; inline;
class property CurrentThread: TThread read GetCurrentThread;
class property Current: TThread read GetCurrentThread;
class property ProcessorCount: LongWord read FProcessorCount;
class property IsSingleProcessor: Boolean read GetIsSingleProcessor;
property FreeOnTerminate: Boolean read FFreeOnTerminate write FFreeOnTerminate;