diff options
| author | Emmanuel Briot <briot@adacore.com> | 2009-04-29 09:52:34 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-29 11:52:34 +0200 |
| commit | d45871da6e9ec5907510d65834ab69e781b3afa5 (patch) | |
| tree | 8c7c972f643916965294bb7ff102908a09236dcf /gcc/ada/prj.ads | |
| parent | 4f87ded359716679d2b3c6225e7569ff4cb4b76f (diff) | |
| download | gcc-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.ads | 11 |
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, |