mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 22:49:37 +02:00
0227c55b53
due to the "uses ptest" and breaks LTO (then both ptest.o and ptest.bc
get linked, resulting in duplicate symbols)
git-svn-id: trunk@42052 -
32 lines
1.2 KiB
ObjectPascal
32 lines
1.2 KiB
ObjectPascal
|
|
{****************************************************************}
|
|
{ CODE GENERATOR TEST PROGRAM }
|
|
{****************************************************************}
|
|
{ NODE TESTED : secondcalln() }
|
|
{****************************************************************}
|
|
{ PRE-REQUISITES: secondload() }
|
|
{ secondassign() }
|
|
{ secondcalln() }
|
|
{ secondadd() }
|
|
{ secondtypeconv() }
|
|
{****************************************************************}
|
|
{ DEFINES: }
|
|
{****************************************************************}
|
|
{ This test check that the code created by Free Pascal for }
|
|
{ functions declared with cdecl modifier are correct }
|
|
{****************************************************************}
|
|
|
|
{$define USE_PASCAL_OBJECT}
|
|
|
|
{$MODE OBJFPC}
|
|
{$R+}
|
|
{ Compile ptest.o }
|
|
uses
|
|
strings,
|
|
ptest,
|
|
ctypes
|
|
;
|
|
|
|
{$i tcalext.pp }
|
|
|