summaryrefslogtreecommitdiff
path: root/gcc/ada/5hparame.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/5hparame.ads')
-rw-r--r--gcc/ada/5hparame.ads8
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/5hparame.ads b/gcc/ada/5hparame.ads
index d9dcd81ff69..ed5d8ac1a6e 100644
--- a/gcc/ada/5hparame.ads
+++ b/gcc/ada/5hparame.ads
@@ -6,8 +6,7 @@
-- --
-- S p e c --
-- --
--- --
--- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2002 Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
@@ -95,6 +94,11 @@ pragma Pure (Parameters);
-- when Size < Minimum_Stack_Size, return Minimum_Stack_Size
-- otherwise return given Size
+ Default_Env_Stack_Size : constant Size_Type := 8_192_000;
+ -- Assumed size of the environment task, if no other information
+ -- is available. This value is used when stack checking is
+ -- enabled and no GNAT_STACK_LIMIT environment variable is set.
+
Stack_Grows_Down : constant Boolean := False;
-- This constant indicates whether the stack grows up (False) or
-- down (True) in memory as functions are called. It is used for