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)
27 lines
360 B
ObjectPascal
27 lines
360 B
ObjectPascal
{$mode objfpc}
|
|
{$modeswitch nestedprocvars}
|
|
|
|
unit unest6a;
|
|
|
|
interface
|
|
|
|
type
|
|
TNestedProc = procedure is nested;
|
|
|
|
IInf = interface
|
|
procedure InfMethod(AParam: TNestedProc);
|
|
end;
|
|
|
|
TObj = class(TInterfacedObject, IInf)
|
|
procedure InfMethod(AParam: TNestedProc);
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure TObj.InfMethod(AParam: TNestedProc);
|
|
begin
|
|
aParam
|
|
end;
|
|
|
|
end.
|