* Fix bug #29506

git-svn-id: trunk@33098 -

packages/fcl-stl/src/garrayutils.pp

@@ -85,7 +85,7 @@ begin
 end;
 
 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
   if (Fin-Start) <= InsertSortThreshold then
   begin