mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:24:24 +02:00
72a01f17f5
It is a bad idea (TM) to do a second_pass twice on the same node * added test git-svn-id: trunk@22785 -
41 lines
448 B
ObjectPascal
41 lines
448 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tb0584;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TSomeObj = class
|
|
function Test(s: String): TObject;
|
|
end;
|
|
|
|
TSomeOtherObj = class
|
|
public
|
|
function GetFoo: String;
|
|
end;
|
|
|
|
function TSomeObj.Test(s: String): TObject;
|
|
begin
|
|
|
|
end;
|
|
|
|
function TSomeOtherObj.GetFoo: String;
|
|
begin
|
|
|
|
end;
|
|
|
|
var
|
|
SomeObj: TSomeObj;
|
|
|
|
procedure Test;
|
|
var
|
|
b: Boolean;
|
|
obj: TSomeOtherObj;
|
|
begin
|
|
b := not Assigned(SomeObj.Test(obj.GetFoo));
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|