diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-01 10:50:31 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-01 10:50:31 +0000 |
| commit | 3cc63234763cb2f53ef716ad014f80ec7a75761b (patch) | |
| tree | 0ca327fa86d8213e44aa3f8380d60d5168f25261 /gcc/ada/prj-env.adb | |
| parent | 3465b71ef9dade9ef4251a02674212e84e5c5f40 (diff) | |
| download | gcc-3cc63234763cb2f53ef716ad014f80ec7a75761b.tar.gz | |
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
Diffstat (limited to 'gcc/ada/prj-env.adb')
| -rw-r--r-- | gcc/ada/prj-env.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb index 40f4ae5cb13..0c80f7f7b94 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; |