mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
18 lines
304 B
ObjectPascal
18 lines
304 B
ObjectPascal
{ 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.
|