mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-20 01:49:31 +01:00
caea5ac8be
tcallnode constructor, so that when it's needed later during pass 1,
its value doesn't depend on the context in which pass 1 is executed
(e.g. when inlining) (mantis #18121)
git-svn-id: trunk@30908 -
18 lines
190 B
ObjectPascal
18 lines
190 B
ObjectPascal
{ %recompile }
|
|
|
|
{$mode objfpc}
|
|
|
|
{$inline on}
|
|
|
|
uses
|
|
uw18121;
|
|
|
|
var
|
|
IntO: TPointerList2;
|
|
begin
|
|
IntO := TPointerList2.Create;
|
|
IntO.SetF(PInteger(nil));
|
|
IntO.WriteLn;
|
|
IntO.Free;
|
|
end.
|