paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* self as var in non-object procvar

Browse Source
This commit is contained in:
peter 2003-01-02 16:32:24 +00:00
parent 3dae3d2391
commit f9948cb330
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/tbs/tb0445.pp Normal file
View File

@ -0,0 +1,12 @@
type
tproc = procedure(self:longint);
procedure p(l:longint);
begin
end;
var
pv : tproc;
begin
pv:={$ifdef fpc}@{$endif}p;
end.