paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug in QuickSort_ItemList_CustomItemExchanger_Context and

Browse Source 
QuickSort_ItemList_Context and which can cause wrong sort results, due to not
  taking into account that the pivot can be moved by the swap operation

git-svn-id: trunk@41191 -
This commit is contained in:
nickysn 2019-02-03 16:34:05 +00:00
parent 79b82acfcc
commit ea340b9481
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/inc/sortbase.pp
View File

@ -183,9 +183,16 @@ var
Dec(J); Dec(J);
If I <= J then If I <= J then
begin begin
Move((Items + ItemSize*I)^, TempBuf^, ItemSize); if I < J then
Move((Items + ItemSize*J)^, (Items + ItemSize*I)^, ItemSize); begin
Move(TempBuf^, (Items + ItemSize*J)^, ItemSize); Move((Items + ItemSize*I)^, TempBuf^, ItemSize);
Move((Items + ItemSize*J)^, (Items + ItemSize*I)^, ItemSize);
Move(TempBuf^, (Items + ItemSize*J)^, ItemSize);
if P = (Items + ItemSize*I) then
P := Items + ItemSize*J
else if P = (Items + ItemSize*J) then
P := Items + ItemSize*I;
end;
Inc(I); Inc(I);
Dec(J); Dec(J);
end; end;
@ -239,7 +246,14 @@ procedure QuickSort_ItemList_CustomItemExchanger_Context(
Dec(J); Dec(J);
If I <= J then If I <= J then
begin begin
Exchanger(Items + ItemSize*I, Items + ItemSize*J, Context); if I < J then
begin
Exchanger(Items + ItemSize*I, Items + ItemSize*J, Context);
if P = (Items + ItemSize*I) then
P := Items + ItemSize*J
else if P = (Items + ItemSize*J) then
P := Items + ItemSize*I;
end;
Inc(I); Inc(I);
Dec(J); Dec(J);
end; end;