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

no message

Browse Source
This commit is contained in:
florian 2005-03-13 11:41:03 +00:00
parent 6601ef0ca8
commit a0ef339646
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/webtbs/tw3777.pp Normal file
View File

@ -0,0 +1,17 @@
{ Source provided for Free Pascal Bug Report 3777 }
{ Submitted by "David Fuchs" on 2005-03-12 }
{ e-mail: drfuchs@yahoo.com }
{$mode delphi}
{$T+}
type
mytype = record
myfield: ^PChar;
end;
procedure fyl_use_ptrs(var f: mytype; var myparm);
begin
f.myfield := addr(myparm);
end;
begin
end.