2008-08-05 Vincent Celier <celier@adacore.com>

	* prj-proc.adb:
	(Process_Declarative_Items): Skip associative array attribute when index
	is reserved word "others".

From-SVN: r138681

gcc/ada/prj-proc.adb

@@ -1891,6 +1891,18 @@ package body Prj.Proc is
                      --  Associative array attribute
 
                      else
+                        declare
+                           Index_Name : Name_Id :=
+                             Associative_Array_Index_Of
+                               (Current_Item, From_Project_Node_Tree);
+                           Lower      : Boolean;
+                           The_Array : Array_Id;
+
+                           The_Array_Element : Array_Element_Id :=
+                                                 No_Array_Element;
+
+                        begin
+                           if Index_Name /= All_Other_Names then
                               --  Get the string index
 
                               Get_Name_String
@@ -1899,19 +1911,17 @@ package body Prj.Proc is
 
                               --  Put in lower case, if necessary
 
-                        declare
-                           Lower : Boolean;
-
-                        begin
                               Lower :=
                                 Case_Insensitive
                                   (Current_Item, From_Project_Node_Tree);
 
-                           --  In multi-language mode (gprbuild), the index is
-                           --  always case insensitive if it does not include
-                           --  any dot.
+                              --  In multi-language mode (gprbuild), the index
+                              --  is always case insensitive if it does not
+                              --  include any dot.
 
-                           if Get_Mode = Multi_Language and then not Lower then
+                              if Get_Mode = Multi_Language
+                                and then not Lower
+                              then
                                  for J in 1 .. Name_Len loop
                                     if Name_Buffer (J) = '.' then
                                        Lower := False;
@@ -1924,18 +1934,10 @@ package body Prj.Proc is
                                  GNAT.Case_Util.To_Lower
                                    (Name_Buffer (1 .. Name_Len));
                               end if;
-                        end;
-
-                        declare
-                           The_Array : Array_Id;
 
-                           The_Array_Element : Array_Element_Id :=
-                                                 No_Array_Element;
-
-                           Index_Name : constant Name_Id := Name_Find;
-                           --  The name id of the index
+                              Index_Name := Name_Find;
+                           end if;
 
-                        begin
                            --  Look for the array in the appropriate list
 
                            if Pkg /= No_Package then