paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use Inc() and Dec() instead of v:=v+1

Browse Source 
git-svn-id: trunk@41178 -
This commit is contained in:
nickysn 2019-02-02 22:58:52 +00:00
parent 63f9afa6bd
commit 59a75ea429
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/inc/sortbase.pp
View File

@ -64,16 +64,16 @@ begin
P := ItemPtrs[ (L + R) div 2 ];
repeat
while Comparer(P, ItemPtrs[i]) > 0 do
I := I + 1;
Inc(I);
while Comparer(P, ItemPtrs[J]) < 0 do
J := J - 1;
Dec(J);
If I <= J then
begin
Q := ItemPtrs[I];
ItemPtrs[I] := ItemPtrs[J];
ItemPtrs[J] := Q;
I := I + 1;
J := J - 1;
Inc(I);
Dec(J);
end;
until I > J;
// sort the smaller range recursively
@ -114,16 +114,16 @@ procedure QuickSort_PtrList_Context(ItemPtrs: PPointer; ItemCount: SizeUInt; Com
P := ItemPtrs[ (L + R) div 2 ];
repeat
while Comparer(P, ItemPtrs[I], Context) > 0 do
I := I + 1;
Inc(I);
while Comparer(P, ItemPtrs[J], Context) < 0 do
J := J - 1;
Dec(J);
If I <= J then
begin
Q := ItemPtrs[I];
ItemPtrs[I] := ItemPtrs[J];
ItemPtrs[J] := Q;
I := I + 1;
J := J - 1;
Inc(I);
Dec(J);
end;
until I > J;
// sort the smaller range recursively
@ -166,16 +166,16 @@ var
P := Items + ItemSize*((L + R) div 2);
repeat
while Comparer(P, Items + ItemSize*I, Context) > 0 do
I := I + 1;
Inc(I);
while Comparer(P, Items + ItemSize*J, Context) < 0 do
J := J - 1;
Dec(J);
If I <= J then
begin
Move((Items + ItemSize*I)^, TempBuf^, ItemSize);
Move((Items + ItemSize*J)^, (Items + ItemSize*I)^, ItemSize);
Move(TempBuf^, (Items + ItemSize*J)^, ItemSize);
I := I + 1;
J := J - 1;
Inc(I);
Dec(J);
end;
until I > J;
// sort the smaller range recursively