diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 11 | ||||
| -rw-r--r-- | gcc/ada/prj-tree.adb | 10 | ||||
| -rw-r--r-- | gcc/ada/prj-tree.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/prj.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/prj.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 2 |
6 files changed, 21 insertions, 10 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e5a9d728c07..d1077cb9850 100644 --- 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 1f15c80b27b..2d94f5c4bbb 100644 --- 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 46cfcf14a21..e68c36eaad4 100644 --- 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 fb002f45cfe..a4b9de11bd9 100644 --- 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 53229fd89e0..e3c04916572 100644 --- 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 36fd6dc8e4b..af29d9a3fdc 100644 --- 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 |
