[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ca4fecd..685c16f 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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;