From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Thu, 1 Sep 2011 10:50:31 +0000 (+0200)
Subject: [multiple changes]
X-Git-Tag: releases/gcc-4.7.0~4049
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=70c0422d554dd46881e4211015e025b279c37a36;p=thirdparty%2Fgcc.git

[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 ca4fecd279e6..685c16f77170 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 de51c76781eb..62c426e8f995 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 40f4ae5cb137..0c80f7f7b948 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;