diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-02-14 17:27:03 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-02-14 17:27:03 +0000 |
| commit | 3d0d2c86fcc5bc5c4b064a94f70f0513d5139e14 (patch) | |
| tree | 661b0e7dd7cb9f123bfca2f7378b8568a5a17e2a /packages/fcl-stl | |
| parent | 548392ff89868b3d598700154ac47a81909d1665 (diff) | |
| download | fpc-3d0d2c86fcc5bc5c4b064a94f70f0513d5139e14.tar.gz | |
* Fix bug 29506
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@33098 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-stl')
| -rw-r--r-- | packages/fcl-stl/src/garrayutils.pp | 2 |
1 files changed, 1 insertions, 1 deletions
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 |