mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 13:38:31 +02:00
90844c2027
The main adjustments were as follows: - fixing coding style and identation - fixing some typos - using a better name for the property in tcallcandidates which holds the symbols created for anonymous parameter values
25 lines
482 B
ObjectPascal
25 lines
482 B
ObjectPascal
{%NORUN}
|
|
{$mode objfpc}
|
|
{$modeswitch implicitfunctionspecialization}
|
|
{
|
|
Test specializing proc vars by infering parameters from callback function
|
|
}
|
|
|
|
program timpfuncspez13;
|
|
|
|
type
|
|
generic TProc<S, V> = procedure(name: S; context: V);
|
|
|
|
generic procedure Run<U, T>(proc: specialize TProc<U, T>; context: T);
|
|
begin
|
|
proc('TProc', context);
|
|
end;
|
|
|
|
procedure DoCallback(name: string; value: shortint);
|
|
begin
|
|
writeln(name, ' called ', value);
|
|
end;
|
|
|
|
begin
|
|
Run(@DoCallback, 100);
|
|
end. |