mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
1e178d324f
before optimising function result assignment, because at this point the
hidden self parameter is not yet inserted (mantis #12597)
* changed ttypeconvnode.actualtargetnode to use the same logic as what
is used to determine whether something can be assigned to the result
of a type conversion (so the above check also works if the methodpointer
contains a typecast to a different object type)
git-svn-id: trunk@12038 -
43 lines
450 B
ObjectPascal
43 lines
450 B
ObjectPascal
program Project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
|
|
{ TFoo }
|
|
|
|
TFoo = Object
|
|
a : integer;
|
|
function b : TFoo;
|
|
end;
|
|
|
|
tfoo2 = object(tfoo)
|
|
end;
|
|
|
|
{ TFoo }
|
|
|
|
function TFoo.b: TFoo;
|
|
begin
|
|
result.a := 5;
|
|
writeln(IntToStr(self.a));
|
|
if (self.a<>2) then
|
|
halt(1);
|
|
end;
|
|
|
|
procedure t;
|
|
var x : TFoo;
|
|
begin
|
|
x.a := 2;
|
|
x := tfoo2(x).b;
|
|
writeln(IntToStr(x.a));
|
|
if (x.a<>5) then
|
|
halt(2);
|
|
end;
|
|
|
|
begin
|
|
t;
|
|
end.
|