diff options
| author | Robert Dewar <dewar@adacore.com> | 2011-08-29 09:34:19 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 11:34:19 +0200 |
| commit | f0f88eb6da6cebf88ec1b3fc2d75b6b350c1bfba (patch) | |
| tree | 4ddce1f125b1a2af8c3d5dd0c7454f02fe1040a4 /gcc/ada/prj.adb | |
| parent | 3e37be71aa737869a2c02a8d041dd63d14d80025 (diff) | |
| download | gcc-f0f88eb6da6cebf88ec1b3fc2d75b6b350c1bfba.zip gcc-f0f88eb6da6cebf88ec1b3fc2d75b6b350c1bfba.tar.gz gcc-f0f88eb6da6cebf88ec1b3fc2d75b6b350c1bfba.tar.bz2 | |
exp_ch9.adb, [...]: Minor reformatting.
2011-08-29 Robert Dewar <dewar@adacore.com>
* exp_ch9.adb, mlib-prj.adb, prj.adb, prj.ads, ttypes.ads, sem_ch4.adb,
makeutl.adb, makeutl.ads, atree.ads, snames.adb-tmpl,
snames.ads-tmpl: Minor reformatting.
From-SVN: r178179
Diffstat (limited to 'gcc/ada/prj.adb')
| -rw-r--r-- | gcc/ada/prj.adb | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index e68b187..fc65860 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -72,8 +72,8 @@ package body Prj is -- Free memory allocated for the list of languages or sources procedure Reset_Units_In_Table (Table : in out Units_Htable.Instance); - -- reset to No_Unit_Index Unit.File_Names (Spec).Unit & - -- Unit.File_Names (Impl).Unit for all Unis of the Table + -- Resets all Units to No_Unit_Index Unit.File_Names (Spec).Unit & + -- Unit.File_Names (Impl).Unit in the given table. procedure Free_Units (Table : in out Units_Htable.Instance); -- Free memory allocated for unit information in the project @@ -123,8 +123,8 @@ package body Prj is --------------------------------- function Current_Object_Path_File_Of - (Shared : Shared_Project_Tree_Data_Access) - return Path_Name_Type is + (Shared : Shared_Project_Tree_Data_Access) return Path_Name_Type + is begin return Shared.Private_Part.Current_Object_Path_File; end Current_Object_Path_File_Of; @@ -965,7 +965,6 @@ package body Prj is Unit := Units_Htable.Get_Next (Table); end loop; - end Reset_Units_In_Table; ---------------- @@ -982,7 +981,7 @@ package body Prj is Unit := Units_Htable.Get_First (Table); while Unit /= No_Unit_Index loop - -- we cannot reset Unit.File_Names (Impl or Spec).Unit here as + -- We cannot reset Unit.File_Names (Impl or Spec).Unit here as -- Source_Data buffer is freed by the following instruction -- Free_List (Tree.Projects, Free_Project => True); |