t_id
138
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022201808 | 1027293 | 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 }