mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 01:47:59 +02:00
0c9b40acb7
- allow operator also if return type match the structure type (before at least one parameter had to match) - search both operands symbol tables for a suitable assignment operator - test based on patch of Blaise Thorn (issue #0018490) git-svn-id: trunk@16762 -
25 lines
298 B
ObjectPascal
25 lines
298 B
ObjectPascal
program toperator12;
|
|
|
|
{$ifdef FPC}
|
|
{$mode Delphi}
|
|
{$endif}
|
|
|
|
type
|
|
R = record
|
|
F: Integer;
|
|
class operator Implicit(const v: integer): R;
|
|
end;
|
|
|
|
class operator R.Implicit(const v: integer): R;
|
|
begin
|
|
Result.F := v;
|
|
end;
|
|
|
|
var
|
|
x: R;
|
|
begin
|
|
x := 42;
|
|
if x.F <> 42 then
|
|
halt(1);
|
|
end.
|