diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-01 10:50:31 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-01 10:50:31 +0000 |
| commit | 3cc63234763cb2f53ef716ad014f80ec7a75761b (patch) | |
| tree | 0ca327fa86d8213e44aa3f8380d60d5168f25261 | |
| parent | 3465b71ef9dade9ef4251a02674212e84e5c5f40 (diff) | |
| download | gcc-3cc63234763cb2f53ef716ad014f80ec7a75761b.tar.gz | |
2011-09-01 Vincent Celier <celier@adacore.com>
* prj-env.adb (Create_Config_Pragmas_File.Check): Put all naming
exceptions in the config pragmas file.
2011-09-01 Tristan Gingold <gingold@adacore.com>
* gnat_ugn.texi: Document GNAT_STACK_SIZE on IVMS.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178404 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/ada/gnat_ugn.texi | 9 | ||||
| -rw-r--r-- | gcc/ada/prj-env.adb | 5 |
3 files changed, 21 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ca4fecd279e..685c16f7717 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,12 @@ +2011-09-01 Vincent Celier <celier@adacore.com> + + * prj-env.adb (Create_Config_Pragmas_File.Check): Put all naming + exceptions in the config pragmas file. + +2011-09-01 Tristan Gingold <gingold@adacore.com> + + * gnat_ugn.texi: Document GNAT_STACK_SIZE on IVMS. + 2011-09-01 Hristian Kirtchev <kirtchev@adacore.com> * exp_ch7.adb (Find_Insertion_List): New routine. diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi index de51c76781e..62c426e8f99 100644 --- a/gcc/ada/gnat_ugn.texi +++ b/gcc/ada/gnat_ugn.texi @@ -17267,6 +17267,15 @@ A consequence of the @option{/p0image} qualifier is also to makes RMS buffers be placed in P0 space. Refer to @cite{HP OpenVMS Linker Utility Manual} for more details about the @option{/p0image} qualifier and the @option{stack} option. + +@noindent +On Itanium platforms, you can instead assign the @samp{GNAT_STACK_SIZE} and +@samp{GNAT_RBS_SIZE} logicals to the size of the primary and register +stack in kilobytes. For example: + +@smallexample +$ define GNAT_RBS_SIZE 1024 ! Limit the RBS size to 1MB. +@end smallexample @end ifset @node Static Stack Usage Analysis diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb index 40f4ae5cb13..0c80f7f7b94 100644 --- a/gcc/ada/prj-env.adb +++ b/gcc/ada/prj-env.adb @@ -526,9 +526,10 @@ package body Prj.Env is while Element (Iter) /= No_Source loop Source := Element (Iter); - if Source.Index >= 1 - and then not Source.Locally_Removed + if not Source.Locally_Removed and then Source.Unit /= null + and then + (Source.Index >= 1 or else Source.Naming_Exception) then Put (Source); end if; |