mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 02:39:27 +02:00
* no checking for linux
This commit is contained in:
parent
8b648d368c
commit
fc5e00ee25
@ -1,3 +1,7 @@
|
|||||||
|
{$ifdef linux}
|
||||||
|
{$define nocheck}
|
||||||
|
{$endif}
|
||||||
|
|
||||||
{$S+}
|
{$S+}
|
||||||
|
|
||||||
{ This tests the stack checking routine on those }
|
{ This tests the stack checking routine on those }
|
||||||
@ -12,12 +16,17 @@ procedure recursive;
|
|||||||
|
|
||||||
|
|
||||||
Begin
|
Begin
|
||||||
|
{$ifndef nocheck}
|
||||||
Recursive;
|
Recursive;
|
||||||
|
{$endif}
|
||||||
end.
|
end.
|
||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.1 2001-12-10 02:41:41 carl
|
Revision 1.2 2002-01-19 12:37:12 peter
|
||||||
|
* no checking for linux
|
||||||
|
|
||||||
|
Revision 1.1 2001/12/10 02:41:41 carl
|
||||||
+ initial version of stack checking routines
|
+ initial version of stack checking routines
|
||||||
|
|
||||||
}
|
}
|
Loading…
Reference in New Issue
Block a user