t_id
227
t_adddate
2003/10/03
t_result
202
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950709568 | 1015783 | True | False | Successfully run |
Record count: 1
{ %RESULT=202 } {$ifdef unix} {$define nocheck} {$endif} {$S+} { This tests the stack checking routine on those } { targets which support it. } procedure recursive; var s: string; begin s := 'blahblah'; recursive; end; Begin {$ifndef nocheck} Recursive; {$else} { Simulate the correct error code } RunError(202); {$endif} end. { $Log: teststk.pp,v $ Revision 1.6 2002/09/07 15:40:56 peter * old logs removed and tabs fixed Revision 1.5 2002/06/01 19:08:52 marco * Renamefest Revision 1.4 2002/03/09 23:18:51 carl * simulate the error code on system with no stack checking Revision 1.3 2002/03/05 21:54:09 carl + indicate error code Revision 1.2 2002/01/19 12:37:12 peter * no checking for linux }