t_id
138
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 443589421 | 934956 | False | False | Failed to run |
Record count: 1
External simple parameter testing...Passed! External array parameter testing...Passed! External mixed parameter testing...Passed! External mixed parameter testing with floating values...Passed! External struct parameter testing...Failed! External mixed struct/byte parameter testing...Passed! Integer function result testing...Passed! pchar function result testing...Passed! Real function result testing...Passed! Function result testing for struct...Passed!
{****************************************************************}
{ 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 }