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

* Fix wrong type for threadID

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-28 09:49:15 +01:00
parent f9b98092c4
commit 85494cdb1d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -344,7 +344,7 @@ begin
// Forcibly unlock through any amount of recursive acquisitions! // Forcibly unlock through any amount of recursive acquisitions!
PrevLockCount:=aLock^.LockCount; PrevLockCount:=aLock^.LockCount;
aLock^.LockCount:=0; aLock^.LockCount:=0;
aLock^.LockOwnerThreadID:=0; aLock^.LockOwnerThreadID:=TThreadID(0);
LeaveCriticalSection(aLock^.CriticalSection); LeaveCriticalSection(aLock^.CriticalSection);
Result:=aPulse.Wait(aTimeOut); Result:=aPulse.Wait(aTimeOut);