aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/prj.ads
diff options
context:
space:
mode:
authorEmmanuel Briot <briot@adacore.com>2009-04-29 09:52:34 +0000
committerArnaud Charlet <charlet@gcc.gnu.org>2009-04-29 11:52:34 +0200
commitd45871da6e9ec5907510d65834ab69e781b3afa5 (patch)
tree8c7c972f643916965294bb7ff102908a09236dcf /gcc/ada/prj.ads
parent4f87ded359716679d2b3c6225e7569ff4cb4b76f (diff)
downloadgcc-d45871da6e9ec5907510d65834ab69e781b3afa5.zip
gcc-d45871da6e9ec5907510d65834ab69e781b3afa5.tar.gz
gcc-d45871da6e9ec5907510d65834ab69e781b3afa5.tar.bz2
prj-ext.adb, [...]: Fix memory leaks.
2009-04-29 Emmanuel Briot <briot@adacore.com> * prj-ext.adb, prj.adb, prj.ads: Fix memory leaks. * clean.adb (Ultimate_Extension_Of): removed, since duplicate of Prj.Ultimate_Extending_Project_Of From-SVN: r146940
Diffstat (limited to 'gcc/ada/prj.ads')
-rw-r--r--gcc/ada/prj.ads11
1 files changed, 4 insertions, 7 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads
index 26bf2da..e903fbc 100644
--- a/gcc/ada/prj.ads
+++ b/gcc/ada/prj.ads
@@ -161,7 +161,7 @@ package Prj is
No_Path_Information : constant Path_Information := (No_Path, No_Path);
type Project_Data;
- type Project_Id is access Project_Data;
+ type Project_Id is access all Project_Data;
No_Project : constant Project_Id := null;
-- Id of a Project File
@@ -604,7 +604,7 @@ package Prj is
Next => No_Language_Index);
type Language_List_Element;
- type Language_List is access Language_List_Element;
+ type Language_List is access all Language_List_Element;
type Language_List_Element is record
Language : Language_Ptr := No_Language_Index;
Next : Language_List;
@@ -928,7 +928,7 @@ package Prj is
-- not considering Specs and Bodies.
type Project_List_Element;
- type Project_List is access Project_List_Element;
+ type Project_List is access all Project_List_Element;
type Project_List_Element is record
Project : Project_Id := No_Project;
Next : Project_List := null;
@@ -937,11 +937,8 @@ package Prj is
procedure Free_List
(List : in out Project_List;
- Free_Project : Boolean;
- Reset_Only : Boolean := True);
+ Free_Project : Boolean);
-- Free the list of projects. If Free_Project, each project is also freed.
- -- When Free_Project is True, Reset_Only indicates whether the specific
- -- languages should also be freed.
type Response_File_Format is
(None,