paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #29506

Browse Source 
git-svn-id: trunk@33098 -
This commit is contained in:
michael 2016-02-14 17:27:03 +00:00
parent 1c0c944311
commit a7963d7877
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/fcl-stl/src/garrayutils.pp
View File

@ -85,7 +85,7 @@ begin
end; end;
class procedure TOrderingArrayUtils.Sortrange(var Arr:TArr; Start,Fin,d:SizeUInt); class procedure TOrderingArrayUtils.Sortrange(var Arr:TArr; Start,Fin,d:SizeUInt);
var pivot,temp:Tvalue; i,j,k,l:SizeUInt; var pivot,temp:Tvalue; i,j,k,l:SizeInt;
begin begin
if (Fin-Start) <= InsertSortThreshold then if (Fin-Start) <= InsertSortThreshold then
begin begin