diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 10:42:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 10:42:00 +0000 |
| commit | 8bdf08aec41fc95bf6576d27511df4965ea67e8c (patch) | |
| tree | d1f32c8f9533e67c4ad8467155a274f5e8b42674 /gcc/ada/prj.ads | |
| parent | 098d3082ab1e8ba60b762e7663cdb3a70a9c963e (diff) | |
| download | gcc-8bdf08aec41fc95bf6576d27511df4965ea67e8c.tar.gz | |
2011-08-03 Thomas Quinot <quinot@adacore.com>
* exp_dist.adb: Minor reformatting.
2011-08-03 Arnaud Charlet <charlet@adacore.com>
* s-taprop-irix.adb, s-taprop-hpux-dce.adb, s-taprop-vms.adb
(ATCB_Key): Removed, not always used.
2011-08-03 Emmanuel Briot <briot@adacore.com>
* gnatcmd.adb, make.adb, prj.adb, prj.ads, makeutl.adb, makeutl.ads,
clean.adb, prj-conf.adb, prj-env.adb, prj-env.ads (Makeutl): remove
most remaining global variables.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177263 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj.ads')
| -rw-r--r-- | gcc/ada/prj.ads | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index 670e690ec72..43adbe4633c 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -1409,6 +1409,8 @@ package Prj is Array_Elements : Array_Element_Table.Instance; Arrays : Array_Table.Instance; Packages : Package_Table.Instance; + + Private_Part : Private_Project_Tree_Data; end record; type Shared_Project_Tree_Data_Access is access all Shared_Project_Tree_Data; -- The data that is shared among multiple trees, when these trees are @@ -1451,8 +1453,6 @@ package Prj is Source_Info_File_Exists : Boolean := False; -- True when a source info file has been successfully read - Private_Part : Private_Project_Tree_Data; - Shared : Shared_Project_Tree_Data_Access; -- The shared data for this tree and all aggregated trees. @@ -1638,18 +1638,19 @@ package Prj is ---------------- procedure Record_Temp_File - (Tree : Project_Tree_Ref; - Path : Path_Name_Type); + (Shared : Shared_Project_Tree_Data_Access; + Path : Path_Name_Type); -- Record the path of a newly created temporary file, so that it can be -- deleted later. - procedure Delete_All_Temp_Files (Tree : Project_Tree_Ref); + procedure Delete_All_Temp_Files + (Shared : Shared_Project_Tree_Data_Access); -- Delete all recorded temporary files. -- Does nothing if Debug.Debug_Flag_N is set procedure Delete_Temporary_File - (Tree : Project_Tree_Ref; - Path : Path_Name_Type); + (Shared : Shared_Project_Tree_Data_Access := null; + Path : Path_Name_Type); -- Delete a temporary file from the disk. The file is also removed from the -- list of temporary files to delete at the end of the program, in case -- another program running on the same machine has recreated it. |