prj-proc.adb (Process_Declarative_Items): Add Location for Array_Data

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

	* prj-proc.adb (Process_Declarative_Items): Add Location for Array_Data

	* prj.ads (Array_Data): Add a component Location

From-SVN: r139300

gcc/ada/prj-proc.adb

@@ -1417,6 +1417,11 @@ package body Prj.Proc is
                                               From_Project_Node_Tree);
                      --  The name of the attribute
 
+                     Current_Location  : constant Source_Ptr :=
+                                           Location_Of
+                                             (Current_Item,
+                                              From_Project_Node_Tree);
+
                      New_Array : Array_Id;
                      --  The new associative array created
 
@@ -1484,6 +1489,7 @@ package body Prj.Proc is
                         if Pkg /= No_Package then
                            In_Tree.Arrays.Table (New_Array) :=
                              (Name     => Current_Item_Name,
+                              Location => Current_Location,
                               Value    => No_Array_Element,
                               Next     =>
                                 In_Tree.Packages.Table (Pkg).Decl.Arrays);
@@ -1494,6 +1500,7 @@ package body Prj.Proc is
                         else
                            In_Tree.Arrays.Table (New_Array) :=
                              (Name     => Current_Item_Name,
+                              Location => Current_Location,
                               Value    => No_Array_Element,
                               Next     =>
                                 In_Tree.Projects.Table (Project).Decl.Arrays);
@@ -1706,6 +1713,11 @@ package body Prj.Proc is
                                              (Current_Item,
                                               From_Project_Node_Tree);
 
+                     Current_Location : constant Source_Ptr :=
+                                          Location_Of
+                                            (Current_Item,
+                                             From_Project_Node_Tree);
+
                   begin
                      --  Process a typed variable declaration
 
@@ -1971,6 +1983,7 @@ package body Prj.Proc is
                               if Pkg /= No_Package then
                                  In_Tree.Arrays.Table (The_Array) :=
                                    (Name     => Current_Item_Name,
+                                    Location => Current_Location,
                                     Value    => No_Array_Element,
                                     Next     =>
                                       In_Tree.Packages.Table
@@ -1982,6 +1995,7 @@ package body Prj.Proc is
                               else
                                  In_Tree.Arrays.Table (The_Array) :=
                                    (Name     => Current_Item_Name,
+                                    Location => Current_Location,
                                     Value    => No_Array_Element,
                                     Next     =>
                                       In_Tree.Projects.Table

gcc/ada/prj.ads

@@ -254,6 +254,7 @@ package Prj is
    No_Array : constant Array_Id := 0;
    type Array_Data is record
       Name     : Name_Id          := No_Name;
+      Location : Source_Ptr       := No_Location;
       Value    : Array_Element_Id := No_Array_Element;
       Next     : Array_Id         := No_Array;
    end record;