|
@@ -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
|
carl