mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:28:08 +02:00
2db4cae7aa
Support assigning one nested procvar to another even when the nestedprocvars modeswitch is not active. This can happen when the type was declared in a different unit that was compiled with this modeswitch, or in internally generated wrapper code (which uses "pure" objfpc mode)
30 lines
281 B
ObjectPascal
30 lines
281 B
ObjectPascal
{ %fail }
|
|
|
|
{$mode objfpc}
|
|
|
|
uses
|
|
unest6a;
|
|
|
|
const
|
|
ok: boolean = false;
|
|
|
|
procedure test(const i: IInf);
|
|
|
|
procedure nest;
|
|
begin
|
|
ok:=true;
|
|
end;
|
|
|
|
begin
|
|
i.InfMethod(@nest);
|
|
end;
|
|
|
|
var
|
|
i: IInf;
|
|
begin
|
|
i:= tobj.create;
|
|
test(i);
|
|
i:=nil;
|
|
halt(ord(not ok));
|
|
end.
|