paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 19:29:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

TMonitor.Wait temporarily unlocks through recursive calls.

Browse Source
This commit is contained in:
Rika Ichinose 2024-02-26 19:26:57 +03:00 committed by Michael Van Canneyt
parent 54bb95da81
commit d1432b7302
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/rtl-objpas/src/inc/fpmonitor.pp
View File

@ -293,18 +293,30 @@ function TMonitorData.Wait(aLock : PMonitorData; aTimeout: Cardinal): Boolean;
var
aPulse : TPulseData;
PrevLockCount : Integer;
begin
{$IFDEF DEBUG_MONITOR}Writeln(StdErr,GetTickCount64,': Thread ',GetCurrentThreadId,' Begin Wait (aTimeout: ',aTimeOut,')');{$ENDIF}
aLock^.CheckLockOwner;
aPulse:=TPulseData.Create;
AddToPulseData(@aPulse);
aLock^.Leave;
// Forcibly unlock through any amount of recursive acquisitions!
PrevLockCount:=aLock^.LockCount;
aLock^.LockCount:=0;
aLock^.LockOwnerThreadID:=0;
LeaveCriticalSection(aLock^.CriticalSection);
Result:=aPulse.Wait(aTimeOut);
{$IFDEF DEBUG_MONITOR}Writeln(StdErr,GetTickCount64,': Thread ',GetCurrentThreadId,' Wait Removing from Pulse data');{$ENDIF}
RemoveFromPulseData(@aPulse);
aPulse.Done;
aLock^.Enter;
// Lock back as if nothing happened!
EnterCriticalSection(aLock^.CriticalSection);
aLock^.LockOwnerThreadID:=GetCurrentThreadId;
aLock^.LockCount:=PrevLockCount;
{$IFDEF DEBUG_MONITOR}Writeln(StdErr,GetTickCount64,': Thread ',GetCurrentThreadId,' End Wait (aTimeout: ',aTimeOut,')');{$ENDIF}
end;