mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 22:49:34 +02:00
c3c345d569
pexpr.pas, sub_expr.generate_inline_specialization: * do_member_read() needs to happen independently of whether we're calling a method of the same object (was incorrectly copypasted code... :/ ) + added test git-svn-id: trunk@33875 -
54 lines
1.1 KiB
ObjectPascal
54 lines
1.1 KiB
ObjectPascal
{ %NORUN }
|
|
|
|
program tw30202;
|
|
|
|
{$MODE DELPHI}
|
|
{$POINTERMATH ON}
|
|
|
|
type
|
|
TArray = record
|
|
class procedure QuickSort<T>(var A: Array of T; const Index, Count: Integer); static; inline;
|
|
end;
|
|
|
|
class procedure TArray.QuickSort<T>(var A: Array of T; const Index, Count: Integer);
|
|
var
|
|
I, J: Integer;
|
|
Temp, Pivot: T;
|
|
begin
|
|
if Index < Count then
|
|
begin
|
|
Pivot := A[Random(Count - Index) + Index + 1];
|
|
I := Index - 1;
|
|
J := Count + 1;
|
|
repeat
|
|
repeat Inc(I) until A[I] >= Pivot;
|
|
repeat Dec(J) until A[J] <= Pivot;
|
|
Temp := A[I];
|
|
A[I] := A[J];
|
|
A[J] := Temp;
|
|
until I >= J;
|
|
A[J] := A[I];
|
|
A[I] := Temp;
|
|
QuickSort<T>(A, Index, I - 1); // project1.lpr(30,17) Error: Compilation raised exception internally
|
|
QuickSort<T>(A, I, Count);
|
|
end;
|
|
end;
|
|
|
|
var
|
|
arri: array of LongInt;
|
|
arrs: array of String;
|
|
begin
|
|
SetLength(arri, 4);
|
|
arri[0] := 4;
|
|
arri[1] := 2;
|
|
arri[2] := 6;
|
|
arri[3] := 1;
|
|
SetLength(arrs, 4);
|
|
arrs[0] := 'World';
|
|
arrs[1] := 'Alpha';
|
|
arrs[2] := 'Hello';
|
|
arrs[3] := 'Foo';
|
|
TArray.QuickSort<LongInt>(arri, Low(arri), High(arri));
|
|
TArray.QuickSort<String>(arrs, Low(arrs), High(arrs));
|
|
end.
|