paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 03:29:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix TFPList.QuickSort duplicate in compiler cclasses (rtl is also broken)

Browse Source 
git-svn-id: trunk@5525 -
This commit is contained in:
micha 2006-12-02 08:03:21 +00:00
parent 8ef81d1086
commit d9c91a9663
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/cclasses.pas
View File

@ -745,23 +745,28 @@ end;
Procedure QuickSort(FList: PPointerList; L, R : Longint;Compare: TListSortCompare);
var
I, J : Longint;
P, Q : Pointer;
I, J, P: Longint;
PItem, Q : Pointer;
begin
repeat
I := L;
J := R;
P := FList^[ (L + R) div 2 ];
P := (L + R) div 2;
repeat
while Compare(P, FList^[i]) > 0 do
PItem := FList^[P];
while Compare(PItem, FList^[i]) > 0 do
I := I + 1;
while Compare(P, FList^[J]) < 0 do
while Compare(PItem, FList^[J]) < 0 do
J := J - 1;
If I <= J then
begin
Q := FList^[I];
Flist^[I] := FList^[J];
FList^[J] := Q;
if P = I then
P := J
else if P = J then
P := I;
I := I + 1;
J := J - 1;
end;