* make.adb:

	(Add_Switches): reflect the changes for the switches attributes
	Default_Switches indexed by the programming language,
	Switches indexed by the file name.
	(Collect_Arguments_And_Compile): Idem.
	Reflect the attribute name changes.

	* prj-attr.adb:
	(Initialisation_Data): Change the names of some packages and
	attributes.
	(Initialize): process case insensitive associative arrays.

	* prj-attr.ads:
	(Attribute_Kind): Remove Both, add Case_Insensitive_Associative_Array.

	* prj-dect.adb:
	(Parse_Attribute_Declaration): For case insensitive associative
	 arrays, set the index string to lower case.

	* prj-env.adb:
	Reflect the changes of the project attributes.

	* prj-nmsc.adb:
	Replace Check_Naming_Scheme by Ada_Check and
	Language_Independent_Check.

	* prj-nmsc.ads:
	Replaced Check_Naming_Scheme by 2 procedures:
	Ada_Check and Language_Independent_Check.

	* prj-proc.adb:
	(Process_Declarative_Items): For case-insensitive associative
	arrays, set the index string to lower case.
	(Recursive_Check): Call Prj.Nmsc.Ada_Check, instead of
	Prj.Nmsc.Check_Naming_Scheme.

	* prj-tree.adb:
	(Case_Insensitive): New function
	(Set_Case_Insensitive): New procedure

	* prj-tree.ads:
	(Case_Insensitive): New function
	(Set_Case_Insensitive): New procedure
	(Project_Node_Record): New flag Case_Insensitive.

	* prj-util.adb:
	(Value_Of): new function to get the string value of a single
	string variable or attribute.

	* prj-util.ads:
	(Value_Of): new function to get the string value of a single
	string variable or attribute.

	* prj.adb:
	(Ada_Default_Spec_Suffix): New function
	(Ada_Default_Impl_Suffix): New function
	Change definitions of several constants to reflect
	new components of record types.

	* prj.ads:
	(Naming_Data): Change several components to reflect new
	elements of naming schemes.
	(Project_Data): New flags Sources_Present and
	Language_Independent_Checked.
	(Ada_Default_Spec_Suffix): New function.
	(Ada_Default_Impl_Suffix): New function.

	* snames.ads:
	Modification of predefined names for project manager: added
	Implementation, Specification_Exceptions, Implementation_Exceptions,
	Specification_Suffix, Implementation_Suffix, Separate_Suffix,
	Default_Switches, _Languages, Builder, Cross_Reference,
	Finder. Removed Body_Part, Specification_Append, Body_Append,
	Separate_Append, Gnatmake, Gnatxref, Gnatfind, Gnatbind,
	Gnatlink.

	* prj.ads: (Ada_Default_Spec_Suffix, Ada_Default_Impl_Suffix):
	Add comments.

	* prj-nmsc.adb (Ada_Check): Test that Separate_Suffix is defaulted,
	not that it is Nil_Variable_Value.

	* prj.ads: Add ??? for uncommented declarations


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@46169 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 26 insertions, 24 deletions

diff --git a/gcc/ada/snames.ads b/gcc/ada/snames.ads
index 680ac213923..c98c25f5853 100644
--- a/gcc/ada/snames.ads
+++ b/gcc/ada/snames.ads
@@ -862,7 +862,7 @@ package Snames is
 
    Name_Project                        : constant Name_Id := N + 523;
    Name_Modifying                      : constant Name_Id := N + 524;
-   --  Name_External is already declared as N + 243
+   --  Name_External is already declared as N + 161
 
    --  Names used in GNAT Project Files
 
@@ -870,32 +870,34 @@ package Snames is
    Name_Object_Dir                     : constant Name_Id := N + 526;
    Name_Source_Dirs                    : constant Name_Id := N + 527;
    Name_Specification                  : constant Name_Id := N + 528;
-   Name_Body_Part                      : constant Name_Id := N + 529;
-   Name_Specification_Append           : constant Name_Id := N + 530;
-   Name_Body_Append                    : constant Name_Id := N + 531;
-   Name_Separate_Append                : constant Name_Id := N + 532;
-   Name_Source_Files                   : constant Name_Id := N + 533;
-   Name_Source_List_File               : constant Name_Id := N + 534;
-   Name_Switches                       : constant Name_Id := N + 535;
-   Name_Library_Dir                    : constant Name_Id := N + 536;
-   Name_Library_Name                   : constant Name_Id := N + 537;
-   Name_Library_Kind                   : constant Name_Id := N + 538;
-   Name_Library_Version                : constant Name_Id := N + 539;
-   Name_Library_Elaboration            : constant Name_Id := N + 540;
-
-   Name_Gnatmake                       : constant Name_Id := N + 541;
-   Name_Gnatls                         : constant Name_Id := N + 542;
-   Name_Gnatxref                       : constant Name_Id := N + 543;
-   Name_Gnatfind                       : constant Name_Id := N + 544;
-   Name_Gnatbind                       : constant Name_Id := N + 545;
-   Name_Gnatlink                       : constant Name_Id := N + 546;
-   Name_Compiler                       : constant Name_Id := N + 547;
-   Name_Binder                         : constant Name_Id := N + 548;
-   Name_Linker                         : constant Name_Id := N + 549;
+   Name_Implementation                 : constant Name_Id := N + 529;
+   Name_Specification_Exceptions       : constant Name_Id := N + 530;
+   Name_Implementation_Exceptions      : constant Name_Id := N + 531;
+   Name_Specification_Suffix           : constant Name_Id := N + 532;
+   Name_Implementation_Suffix          : constant Name_Id := N + 533;
+   Name_Separate_Suffix                : constant Name_Id := N + 534;
+   Name_Source_Files                   : constant Name_Id := N + 535;
+   Name_Source_List_File               : constant Name_Id := N + 536;
+   Name_Default_Switches               : constant Name_Id := N + 537;
+   Name_Switches                       : constant Name_Id := N + 538;
+   Name_Library_Dir                    : constant Name_Id := N + 539;
+   Name_Library_Name                   : constant Name_Id := N + 540;
+   Name_Library_Kind                   : constant Name_Id := N + 541;
+   Name_Library_Version                : constant Name_Id := N + 542;
+   Name_Library_Elaboration            : constant Name_Id := N + 543;
+   Name_Languages                      : constant Name_Id := N + 544;
+
+   Name_Builder                        : constant Name_Id := N + 545;
+   Name_Gnatls                         : constant Name_Id := N + 546;
+   Name_Cross_Reference                : constant Name_Id := N + 547;
+   Name_Finder                         : constant Name_Id := N + 548;
+   Name_Binder                         : constant Name_Id := N + 549;
+   Name_Linker                         : constant Name_Id := N + 550;
+   Name_Compiler                       : constant Name_Id := N + 551;
 
    --  Mark last defined name for consistency check in Snames body
 
-   Last_Predefined_Name                : constant Name_Id := N + 549;
+   Last_Predefined_Name                : constant Name_Id := N + 551;
 
    subtype Any_Operator_Name is Name_Id range
      First_Operator_Name .. Last_Operator_Name;