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

+ add function reference suitable overload of TThread.ForceQueue()

Browse Source
This commit is contained in:
Sven/Sarah Barth 2023-03-11 17:07:40 +01:00 committed by Pierre Muller
parent 34738e1db9
commit 42472aac89
2 changed files with 10 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

@ -683,6 +683,13 @@ begin
InternalQueue(aThread, aMethod, True);
end;
{$ifdef FPC_HAS_REFERENCE_PROCEDURE}
class procedure TThread.ForceQueue(aThread: TThread; aMethod: TThreadProcedure); static;
begin
InternalQueue(aThread, aMethod, True);
end;
{$endif}
class procedure TThread.RemoveQueuedEvents(aThread: TThread; aMethod: TThreadMethod);
var
entry, tmpentry, lastentry: PThreadQueueEntry;

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

@ -2009,6 +2009,9 @@ type
class procedure Queue(aThread: TThread; AProcedure : TThreadProcedure); static;
{$endif}
class procedure ForceQueue(aThread: TThread; aMethod: TThreadMethod); inline; static;
{$ifdef FPC_HAS_REFERENCE_PROCEDURE}
class procedure ForceQueue(aThread: TThread; aMethod: TThreadProcedure); inline; static;
{$endif}
class procedure RemoveQueuedEvents(aThread: TThread; aMethod: TThreadMethod); static;
class procedure RemoveQueuedEvents(aMethod: TThreadMethod); static;
class procedure RemoveQueuedEvents(aThread: TThread); static;