t_id
227
t_adddate
2003/10/03
t_result
202
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 479196857 | 940708 | 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
}