[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index e5a9d72..d1077cb 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,14 @@
+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.

diff --git a/gcc/ada/prj-tree.adb b/gcc/ada/prj-tree.adb
index 1f15c80..2d94f5c 100644 (file)
--- a/gcc/ada/prj-tree.adb
+++ b/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;
 

diff --git a/gcc/ada/prj-tree.ads b/gcc/ada/prj-tree.ads
index 46cfcf1..e68c36e 100644 (file)
--- a/gcc/ada/prj-tree.ads
+++ b/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

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

diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads
index 53229fd..e3c0491 100644 (file)
--- a/gcc/ada/prj.ads
+++ b/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;

diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index 36fd6dc..af29d9a 100644 (file)
--- a/gcc/ada/sem_aggr.adb
+++ b/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