mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
e58488dc3e
htypechk.pas, tcallcandidates: * create_candidate_list: check the correct tableoptions for sto_has_overload flag + added test git-svn-id: trunk@33211 -
34 lines
414 B
ObjectPascal
34 lines
414 B
ObjectPascal
unit tw29792;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
type
|
|
{ TMyRecord }
|
|
|
|
TMyRecord<T> = record
|
|
class operator Add(A,B: TMyRecord<T>): TMyRecord<T>;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TMyRecord }
|
|
|
|
class operator TMyRecord<T>.Add(A, B: TMyRecord<T>): TMyRecord<T>;
|
|
begin
|
|
// add implementation
|
|
end;
|
|
|
|
procedure TestIfCompiles;
|
|
type
|
|
TInteger = TMyRecord<Integer>;
|
|
var
|
|
N1, N2, N3: TInteger;
|
|
begin
|
|
N1 := N2 + N3;
|
|
end;
|
|
|
|
end.
|
|
|