diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-23 09:35:03 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-23 09:35:03 +0200 |
| commit | db914ff87343f55cee5a4bc875b63f2eea395647 (patch) | |
| tree | 0afacf2e587bc3a58ed103ced7ec6a71291fc1ec /gcc/ada/prj-nmsc.adb | |
| parent | 2557e0547105f1c8f4fd0148bb514112499a4b72 (diff) | |
| download | gcc-db914ff87343f55cee5a4bc875b63f2eea395647.zip gcc-db914ff87343f55cee5a4bc875b63f2eea395647.tar.gz gcc-db914ff87343f55cee5a4bc875b63f2eea395647.tar.bz2 | |
[multiple changes]
2012-07-23 Fedor Rybin <frybin@adacore.com>
* gnat_ugn.texi: Removing obsolete limitation of gnattest
to support only ada05. Updating gnattest support for other
platforms/run-times section to reflect the usage of taget
prefix in gnattest calls. Fixing missed obsolete --stub-default
option name.
2012-07-23 Robert Dewar <dewar@adacore.com>
* uintp.adb: Minor reformatting.
2012-07-23 Olivier Hainque <hainque@adacore.com>
* system-vxworks-ppc.ads: Replace the default
Linker_Options requesting crtbe by a commented out request for
-nostartfiles.
2012-07-23 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Check_Naming): Do not get the exceptions names
in a virtual project.
From-SVN: r189771
Diffstat (limited to 'gcc/ada/prj-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index facf9f9..77d1cfd 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -4209,22 +4209,25 @@ package body Prj.Nmsc is Lang_Id := Lang_Id.Next; end loop; - -- Get the naming exceptions for all languages - - for Kind in Spec_Or_Body loop - Lang_Id := Project.Languages; - while Lang_Id /= No_Language_Index loop - case Lang_Id.Config.Kind is + -- Get the naming exceptions for all languages, but not for virtual + -- projects. + + if not Project.Virtual then + for Kind in Spec_Or_Body loop + Lang_Id := Project.Languages; + while Lang_Id /= No_Language_Index loop + case Lang_Id.Config.Kind is when File_Based => Process_Exceptions_File_Based (Lang_Id, Kind); when Unit_Based => Process_Exceptions_Unit_Based (Lang_Id, Kind); - end case; + end case; - Lang_Id := Lang_Id.Next; + Lang_Id := Lang_Id.Next; + end loop; end loop; - end loop; + end if; end Check_Naming; ---------------------------- |