From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 1 Sep 2011 10:50:31 +0000 (+0000)
Subject: 2011-09-01  Vincent Celier  <celier@adacore.com>
X-Git-Tag: upstream/4.9.2~18020
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3cc63234763cb2f53ef716ad014f80ec7a75761b;p=platform%2Fupstream%2Flinaro-gcc.git

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
---

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;