From 70c0422d554dd46881e4211015e025b279c37a36 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 1 Sep 2011 12:50:31 +0200 Subject: [PATCH] [multiple changes] 2011-09-01 Vincent Celier * prj-env.adb (Create_Config_Pragmas_File.Check): Put all naming exceptions in the config pragmas file. 2011-09-01 Tristan Gingold * gnat_ugn.texi: Document GNAT_STACK_SIZE on IVMS. From-SVN: r178404 --- gcc/ada/ChangeLog | 9 +++++++++ gcc/ada/gnat_ugn.texi | 9 +++++++++ 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 + + * prj-env.adb (Create_Config_Pragmas_File.Check): Put all naming + exceptions in the config pragmas file. + +2011-09-01 Tristan Gingold + + * gnat_ugn.texi: Document GNAT_STACK_SIZE on IVMS. + 2011-09-01 Hristian Kirtchev * 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; -- 2.7.4