mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 15:29:25 +02:00
45807056c5
* do not issue a hint if a normal parameter is passed to another procedure by var + test git-svn-id: trunk@33248 -
15 lines
159 B
ObjectPascal
15 lines
159 B
ObjectPascal
{ %OPT=-Oodfa -vwh -Seh }
|
|
procedure modify(var p: pointer);
|
|
begin
|
|
inc(p);
|
|
end;
|
|
|
|
procedure test(p: pointer);
|
|
begin
|
|
modify(p);
|
|
end;
|
|
|
|
begin
|
|
test(nil);
|
|
end.
|