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

mtprocs: fixed CalcBlockSize when MinBlockSize<1, bug #30612

Browse Source 
git-svn-id: trunk@52986 -
This commit is contained in:
mattias 2016-09-18 09:30:24 +00:00
parent e0b8bceb8e
commit c69f972142
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/multithreadprocs/mtprocs.pas
View File

@ -708,6 +708,7 @@ begin
BlockCount:=ProcThreadPool.MaxThreadCount;
BlockSize:=(LoopLength div BlockCount);
if (BlockSize<MinBlockSize) then BlockSize:=MinBlockSize;
if BlockSize<1 then BlockSize:=1;
BlockCount:=((LoopLength-1) div BlockSize)+1;
end;