t_id
138
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| -2127976581 | 497919 | True | False | Successfully run |
Record count: 1
{****************************************************************}
{ 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}
{$STATIC ON}
{$R+}
{ Compile ptest.o }
uses
strings,
ptest
;
{$ifdef USE_PASCAL_OBJECT}
{$ifdef win32}
{$ifdef ver1_0}
{$L ptest.ow}
{$else}
{$L ptest.o}
{$endif}
{$else}
{$L ptest.o}
{$endif not win32}
{$endif USE_PASCAL_OBJECT}
{$i tcalext.pp }