mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:38:14 +02:00
b0458b55a3
The changes are built up in a way that all operators on two given types are not allowed if a default implementation for that operator exists. This implies that there is a possibility to have a overload work for (in this order) type A and B, but not for B and A. This is for example the case for Set + Enum (which seems to have a default implementation) where Enum + Set is allowed. The added tests try to detect as many default implementations as feasible, but can't cover everything... git-svn-id: trunk@21975 -
66 lines
867 B
ObjectPascal
66 lines
867 B
ObjectPascal
{ %NORUN }
|
|
program toperator78;
|
|
|
|
operator ** (left, right: LongInt) res : LongInt;
|
|
begin
|
|
|
|
end;
|
|
|
|
operator >< (left, right: LongInt) res : LongInt;
|
|
begin
|
|
|
|
end;
|
|
|
|
operator + (left: LongInt; right: AnsiString) res : AnsiString;
|
|
begin
|
|
|
|
end;
|
|
|
|
operator - (left, right: AnsiString) res : AnsiString;
|
|
begin
|
|
|
|
end;
|
|
|
|
operator div (left, right: Single) res : Single;
|
|
begin
|
|
|
|
end;
|
|
|
|
operator mod (left, right: Double) res : Double;
|
|
begin
|
|
|
|
end;
|
|
|
|
type
|
|
TTest = (One, Two, Three);
|
|
TTests = set of TTest;
|
|
|
|
operator and (left, right: TTests) res : TTests;
|
|
begin
|
|
|
|
end;
|
|
|
|
operator < (left, right: TObject) res : Boolean;
|
|
begin
|
|
|
|
end;
|
|
|
|
operator + (left: Pointer; right: ShortString) res : ShortString;
|
|
begin
|
|
|
|
end;
|
|
|
|
operator and (left: array of Char; right: AnsiString) res : AnsiString;
|
|
begin
|
|
|
|
end;
|
|
|
|
operator + (left: array of Char; right: TTest) res : ShortString;
|
|
begin
|
|
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|