From a7963d7877b8d269efa861fcde19ceacd5a7e735 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 14 Feb 2016 17:27:03 +0000
Subject: [PATCH] * Fix bug #29506

git-svn-id: trunk@33098 -
---
 packages/fcl-stl/src/garrayutils.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-stl/src/garrayutils.pp b/packages/fcl-stl/src/garrayutils.pp
index a208260d3f..7b93da036d 100644
--- a/packages/fcl-stl/src/garrayutils.pp
+++ b/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