mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
79c70c52a7
copy/compare it when copying/comparing taddnodes (necessary for inlined
procedures, mantis #13596)
git-svn-id: trunk@13054 -
15 lines
142 B
ObjectPascal
15 lines
142 B
ObjectPascal
{ %norun }
|
|
{ %recompile }
|
|
|
|
{$inline on}
|
|
|
|
program BothScreens3D;
|
|
|
|
uses
|
|
tw13596a;
|
|
|
|
begin
|
|
gluPerspective(70, 256.0 / 192.0, 0.1, 100);
|
|
end.
|
|
|