paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 20:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazcollections: TLazThreadedQueue fix ShutDown

Browse Source 
git-svn-id: trunk@63860 -
This commit is contained in:
martin 2020-09-03 08:21:00 +00:00
parent 1f21de2207
commit 144fb11c00
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazutils/lazcollections.pas
View File

@ -286,6 +286,10 @@ begin
end; end;
if FShutDown then if FShutDown then
begin begin
RTLeventResetEvent(FHasRoomEvent);
RTLeventResetEvent(FHasItemEvent);
RTLeventSetEvent(FHasRoomEvent);
RTLeventSetEvent(FHasItemEvent);
result := wrAbandoned; result := wrAbandoned;
exit; exit;
end; end;
@ -332,6 +336,10 @@ begin
end; end;
if FShutDown then if FShutDown then
begin begin
RTLeventResetEvent(FHasRoomEvent);
RTLeventResetEvent(FHasItemEvent);
RTLeventSetEvent(FHasRoomEvent);
RTLeventSetEvent(FHasItemEvent);
result := wrAbandoned; result := wrAbandoned;
exit; exit;
end; end;
@ -344,7 +352,7 @@ procedure TLazThreadedQueue.DoShutDown;
begin begin
FShutDown:=true; FShutDown:=true;
RTLeventSetEvent(FHasRoomEvent); RTLeventSetEvent(FHasRoomEvent);
RTLeventResetEvent(FHasItemEvent); RTLeventSetEvent(FHasItemEvent);
end; end;
initialization initialization