[multiple changes]

2010-06-22  Vincent Celier  <celier@adacore.com>

	* prj-nmsc.adb (Process_Naming_Scheme): Initialize table Lib_Data_Table.

2010-06-22  Robert Dewar  <dewar@adacore.com>

	* par-ch4.adb (P_Name): Recognize 'Mod attribute in Ada 95 mode
	* sem_attr.adb (Attribute_05): Add Name_Mod so that 'Mod recognized in
	Ada 95 mode as an implementation defined attribute.

From-SVN: r161166

gcc/ada/ChangeLog

 2010-06-22  Vincent Celier  <celier@adacore.com>
 
+	* prj-nmsc.adb (Process_Naming_Scheme): Initialize table Lib_Data_Table.
+
+2010-06-22  Robert Dewar  <dewar@adacore.com>
+
+	* par-ch4.adb (P_Name): Recognize 'Mod attribute in Ada 95 mode
+	* sem_attr.adb (Attribute_05): Add Name_Mod so that 'Mod recognized in
+	Ada 95 mode as an implementation defined attribute.
+
+2010-06-22  Vincent Celier  <celier@adacore.com>
+
 	* bindusg.adb (Display): Update line for -R
 	* switch-b.adb (Scan_Binder_Switches): Allow generation of the binder
 	generated files when -R is used.

gcc/ada/par-ch4.adb

@@ -437,7 +437,7 @@ package body Ch4 is
                elsif Token = Tok_Access then
                   Attr_Name := Name_Access;
 
-               elsif Token = Tok_Mod and then Ada_Version = Ada_05 then
+               elsif Token = Tok_Mod and then Ada_Version >= Ada_95 then
                   Attr_Name := Name_Mod;
 
                elsif Apostrophe_Should_Be_Semicolon then

gcc/ada/prj-nmsc.adb

@@ -165,7 +165,7 @@ package body Prj.Nmsc is
 
    package Lib_Data_Table is new GNAT.Table
      (Table_Component_Type => Lib_Data,
-      Table_Index_Type     => Positive,
+      Table_Index_Type     => Natural,
       Table_Low_Bound      => 1,
       Table_Initial        => 10,
       Table_Increment      => 100);
@@ -7567,6 +7567,7 @@ package body Prj.Nmsc is
 
    --  Start of processing for Process_Naming_Scheme
    begin
+      Lib_Data_Table.Init;
       Initialize (Data, Tree => Tree, Flags => Flags);
       Check_All_Projects (Root_Project, Data, Imported_First => True);
       Free (Data);

gcc/ada/sem_attr.adb

@@ -136,6 +136,7 @@ package body Sem_Attr is
 
    Attribute_05 : constant Attribute_Class_Array := Attribute_Class_Array'(
       Attribute_Machine_Rounding  |
+      Attribute_Mod               |
       Attribute_Priority          |
       Attribute_Stream_Size       |
       Attribute_Wide_Wide_Width   => True,