mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-12 20:50:41 +01:00
c43fda1fe1
don't have any parameters in most expressions, rather than using them
as the procvar itself) -> replaced procvar<>nil with assigned(procvar)
in test/tmacprocvar.pp to keep it compiling (otherwise it now called
the procvar); necessary in combination with the next fix to compile
webtbs/tw17379a.pp
* automatically disambiguate the use of the function name when used as a
parameter in macpas mode (if the formal parameter type is a procvar
type then interpret it as the current function definition, otherwise
as the current function result) (mantis #17379)
git-svn-id: trunk@15971 -
23 lines
319 B
ObjectPascal
23 lines
319 B
ObjectPascal
{ %norun }
|
|
|
|
{$mode macpas}
|
|
{$warnings off}
|
|
program recursivefunctionparam;
|
|
|
|
function first( function test( theint: integer): boolean): integer;
|
|
begin {not implemented} end;
|
|
|
|
function find: integer;
|
|
|
|
function test( theint: integer): boolean;
|
|
begin
|
|
first( test)
|
|
end;
|
|
|
|
begin
|
|
{not implemented}
|
|
end;
|
|
|
|
begin
|
|
end.
|