From f0f88eb6da6cebf88ec1b3fc2d75b6b350c1bfba Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 29 Aug 2011 09:34:19 +0000 Subject: exp_ch9.adb, [...]: Minor reformatting. 2011-08-29 Robert Dewar * 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 --- gcc/ada/prj.adb | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'gcc/ada/prj.adb') 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); -- cgit v1.1