diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-28 09:19:48 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-28 09:19:48 +0000 |
| commit | c1476d9e66e82033e06ac796f2c9b2922b80d922 (patch) | |
| tree | bd4d85a57b3b721fbcebea572979c18685ec8304 /gcc/ada/prj-tree.adb | |
| parent | a9b0586f9a6f493f630c50145dc52bc0c6c4c140 (diff) | |
| download | gcc-c1476d9e66e82033e06ac796f2c9b2922b80d922.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150151 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-tree.adb')
| -rw-r--r-- | gcc/ada/prj-tree.adb | 10 |
1 files changed, 5 insertions, 5 deletions
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; |