paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2026-02-18 17:36:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixed the quick sort implementation.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2022-05-04 11:01:13 -03:00 committed by Michael Van Canneyt
parent 2e1c24f789
commit 1ff36296fb
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/rtl/generics.collections.pas
View File

@ -519,7 +519,7 @@ implementation
class procedure TCustomArrayHelper<T>.Sort(var AValues: array of T;
const AComparer: IComparer<T>);
begin
QuickSort(AValues, 0, Length(AValues), AComparer);
Sort(AValues, AComparer, Low(AValues), Length(AValues));
end;
class procedure TCustomArrayHelper<T>.Sort(var AValues: array of T;