mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 17:59:26 +02:00
13 lines
143 B
ObjectPascal
13 lines
143 B
ObjectPascal
type
|
|
tproc = procedure(self,l2:longint);
|
|
|
|
procedure p(l1,l2:longint);
|
|
begin
|
|
end;
|
|
|
|
var
|
|
pv : tproc;
|
|
begin
|
|
pv:={$ifdef fpc}@{$endif}p;
|
|
end.
|