paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

AThreads: prevent deadlock for event set before waited

Browse Source
This commit is contained in:
Marcus Sackrow 2022-05-28 22:46:50 +02:00
parent 4556cb35d1
commit 638de87a5a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/amicommon/athreads.pp
View File

@ -1133,6 +1133,7 @@ begin
{$IFDEF DEBUG_AMIEVENT} {$IFDEF DEBUG_AMIEVENT}
SysDebugLn('AmiEvent: WaitFor Early Destroy'); SysDebugLn('AmiEvent: WaitFor Early Destroy');
{$ENDIF} {$ENDIF}
ReleaseSemaphore(@AmiEvent^.Sem);
Exit; Exit;
end; end;
if AmiEvent^.IsSet then if AmiEvent^.IsSet then
@ -1143,6 +1144,7 @@ begin
{$IFDEF DEBUG_AMIEVENT} {$IFDEF DEBUG_AMIEVENT}
SysDebugLn('AmiEvent: WaitFor Early Signaled'); SysDebugLn('AmiEvent: WaitFor Early Signaled');
{$ENDIF} {$ENDIF}
ReleaseSemaphore(@AmiEvent^.Sem);
Exit; Exit;
end; end;
// signal not set, so we add this call to the waiterlist // signal not set, so we add this call to the waiterlist