[multiple changes]

2009-07-28  Ed Schonberg  <schonberg@adacore.com>

	* sem_aggr.adb (Get_Value): A named association in a record aggregate
	should be treated as a modification of the named component, not as a
	reference.

2009-07-28  Quentin Ochem  <ochem@adacore.com>

	* prj-tree.ads, prj-tree.adb (Free): Minor editing.
	* prj.ads, prj.adb (Image): Ditto.

From-SVN: r150151

gcc/ada/ChangeLog

+2009-07-28  Ed Schonberg  <schonberg@adacore.com>
+
+	* sem_aggr.adb (Get_Value): A named association in a record aggregate
+	should be treated as a modification of the named component, not as a
+	reference.
+
+2009-07-28  Quentin Ochem  <ochem@adacore.com>
+
+	* prj-tree.ads, prj-tree.adb (Free): Minor editing.
+	* prj.ads, prj.adb (Image): Ditto.
+
 2009-07-28  Arnaud Charlet  <charlet@adacore.com>
 
 	* frontend.adb: Minor reformatting.

gcc/ada/prj-tree.adb

@@ -989,14 +989,14 @@ package body Prj.Tree is
    -- Free --
    ----------
 
-   procedure Free (Prj : in out Project_Node_Tree_Ref) is
+   procedure Free (Proj : in out Project_Node_Tree_Ref) is
       procedure Unchecked_Free is new Ada.Unchecked_Deallocation
         (Project_Node_Tree_Data, Project_Node_Tree_Ref);
    begin
-      if Prj /= null then
-         Project_Node_Table.Free (Prj.Project_Nodes);
-         Projects_Htable.Reset (Prj.Projects_HT);
-         Unchecked_Free (Prj);
+      if Proj /= null then
+         Project_Node_Table.Free (Proj.Project_Nodes);
+         Projects_Htable.Reset (Proj.Projects_HT);
+         Unchecked_Free (Proj);
       end if;
    end Free;
 

gcc/ada/prj-tree.ads

@@ -1373,7 +1373,7 @@ package Prj.Tree is
    end record;
    --  The data for a project node tree
 
-   procedure Free (Prj : in out Project_Node_Tree_Ref);
+   procedure Free (Proj : in out Project_Node_Tree_Ref);
    --  Free memory used by Prj
 
 private

gcc/ada/prj.adb

@@ -600,9 +600,9 @@ package body Prj is
    -- Image --
    -----------
 
-   function Image (Casing : Casing_Type) return String is
+   function Image (The_Casing : Casing_Type) return String is
    begin
-      return The_Casing_Images (Casing).all;
+      return The_Casing_Images (The_Casing).all;
    end Image;
 
    -----------------------------

gcc/ada/prj.ads

@@ -795,7 +795,7 @@ package Prj is
       Symbol_Policy => Autonomous);
    --  The default value of the symbol data
 
-   function Image (Casing : Casing_Type) return String;
+   function Image (The_Casing : Casing_Type) return String;
    --  Similar to 'Image (but avoid use of this attribute in compiler)
 
    function Value (Image : String) return Casing_Type;

gcc/ada/sem_aggr.adb

@@ -2737,7 +2737,7 @@ package body Sem_Aggr is
                         end if;
                      end if;
 
-                     Generate_Reference (Compon, Selector_Name);
+                     Generate_Reference (Compon, Selector_Name, 'm');
 
                   else
                      Error_Msg_NE