From db914ff87343f55cee5a4bc875b63f2eea395647 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 23 Jul 2012 09:35:03 +0200 Subject: [multiple changes] 2012-07-23 Fedor Rybin * 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 * uintp.adb: Minor reformatting. 2012-07-23 Olivier Hainque * system-vxworks-ppc.ads: Replace the default Linker_Options requesting crtbe by a commented out request for -nostartfiles. 2012-07-23 Vincent Celier * prj-nmsc.adb (Check_Naming): Do not get the exceptions names in a virtual project. From-SVN: r189771 --- gcc/ada/prj-nmsc.adb | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) (limited to 'gcc/ada/prj-nmsc.adb') 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; ---------------------------- -- cgit v1.1