[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index df1bc715f5dbe1509282c47930237b3cda0bf639..30eac7fbb1d9437dadef3e94d5ca85124fd2b120 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,13 @@
+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

diff --git a/gcc/ada/par-ch4.adb b/gcc/ada/par-ch4.adb
index 7b1b87c1ce61875651202986ebdec4785910f992..6f3a2f28ed6c9796812e3bb8ff658bd227b5464d 100644 (file)
--- a/gcc/ada/par-ch4.adb
+++ b/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

diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb
index f16f6e7bd9bde0a94b913a6e4a95edceb35c74bd..6ea1daffe32dc571e872ccdf2bff68fab0eeddef 100644 (file)
--- a/gcc/ada/prj-nmsc.adb
+++ b/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);

diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index a3dfdf0b4987e576e31ec94b9eb504260a056489..9d1589afa01c1df0cd4fb7deb6114598cb592783 100644 (file)
--- a/gcc/ada/sem_attr.adb
+++ b/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,