+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.
-- 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;
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
-- 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;
-----------------------------
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;
end if;
end if;
- Generate_Reference (Compon, Selector_Name);
+ Generate_Reference (Compon, Selector_Name, 'm');
else
Error_Msg_NE