Test suite results for test file test/units/system/teststk.pp

Test run data :

Test file "test/units/system/teststk.pp" information:

t_id 227
t_adddate 2003/10/03
t_result 202
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948265.

Source:

{ %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

}

Link to SVN view of test/units/system/teststk.pp source.