paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 13:59:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

test untyped var arg for procvar in TP mode

Browse Source
This commit is contained in:
pierre 2000-05-30 19:22:40 +00:00
parent 427e658e52
commit a3d3cd7b81
1 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
tests/test/testpva2.pp Normal file
View File

@ -0,0 +1,38 @@
{$F+}
{$ifdef fpc}
{$mode tp}
{$endif fpc}
type
tproc = procedure;
tprocx = procedure(x : longint);
const
dummy_call_count : longint = 0;
procedure dummy;
begin
writeln('Dummy called');
inc(dummy_call_count);
end;
procedure dummyx(x : longint);
begin
writeln('Dummy called with x=',x);
inc(dummy_call_count);
end;
var
tp2 : tproc;
tp1x,tp2x : tprocx;
const
tp1 : tproc = dummy;
begin
move(@tp1,@tp2,sizeof(tproc));
tp2;
tp1x:=dummyx;
move(@tp1x,@tp2x,sizeof(tproc));
tp2x(2);
end.