diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-01 12:50:31 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-01 12:50:31 +0200 |
| commit | 70c0422d554dd46881e4211015e025b279c37a36 (patch) | |
| tree | 0ca327fa86d8213e44aa3f8380d60d5168f25261 /gcc | |
| parent | 8c5b03a08edcee621c86f18bf0c1eb829ea3d12c (diff) | |
| download | gcc-70c0422d554dd46881e4211015e025b279c37a36.zip gcc-70c0422d554dd46881e4211015e025b279c37a36.tar.gz gcc-70c0422d554dd46881e4211015e025b279c37a36.tar.bz2 | |
[multiple changes]
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.
From-SVN: r178404
Diffstat (limited to 'gcc')
| -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 ca4fecd..685c16f 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 de51c76..62c426e 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 40f4ae5..0c80f7f 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; |