paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 18:58:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: lazcollections, TLazThreadedQueue fix for 3.2.0

Browse Source 
git-svn-id: trunk@63817 -
This commit is contained in:
martin 2020-08-23 20:38:07 +00:00
parent b63067892d
commit f89f1c10b4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazcollections.pas
View File

@ -211,7 +211,7 @@ var
begin
FMonitor.Enter;
try
c:=Max(FQueueSize + ADelta, FTotalItemsPushed - FTotalItemsPopped);
c:=Max(FQueueSize + ADelta, Integer(FTotalItemsPushed - FTotalItemsPopped));
setlength(NewList, c);
i:=FTotalItemsPopped;
while i < FTotalItemsPushed do begin