paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 10:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* simulate the error code on system with no stack checking

Browse Source
This commit is contained in:
carl 2002-03-09 23:18:51 +00:00
parent 7645e4c56b
commit 76f7d71cc3
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/units/system/teststk.pp
View File

@ -19,12 +19,18 @@ procedure recursive;
Begin Begin
{$ifndef nocheck} {$ifndef nocheck}
Recursive; Recursive;
{$else}
{ Simulate the correct error code }
RunError(202);
{$endif} {$endif}
end. end.
{ {
$Log$ $Log$
Revision 1.3 2002-03-05 21:54:09 carl 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 + indicate error code
Revision 1.2 2002/01/19 12:37:12 peter Revision 1.2 2002/01/19 12:37:12 peter