mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:07:56 +02:00
8df1d1f9b8
support maybe_call_procvar() on internal block nodes, which return
their result via the last statement
git-svn-id: trunk@34051 -
42 lines
592 B
ObjectPascal
42 lines
592 B
ObjectPascal
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
{$r+}
|
|
|
|
type
|
|
FuncA = function : Integer of object;
|
|
ObjA = class
|
|
function Func1: Integer;
|
|
procedure Proc1(const Arr: Array of FuncA);
|
|
end;
|
|
|
|
var A : ObjA;
|
|
|
|
procedure test(fa: funca);
|
|
begin
|
|
if fa<>a.func1 then
|
|
halt(2);
|
|
end;
|
|
|
|
function ObjA.Func1: Integer;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
procedure ObjA.Proc1(const Arr: Array of FuncA);
|
|
begin
|
|
if (low(arr)<>0) or
|
|
(high(arr)<>1) or
|
|
assigned(arr[0]) or
|
|
(arr[1]<>a.func1) then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
A := ObjA.Create;
|
|
A.Proc1([nil,A.Func1]);
|
|
test(a.func1);
|
|
a.free;
|
|
end.
|