From 5a30024a49dbc0f0346f14aada7859265c49490e Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Tue, 27 May 2008 14:36:43 +0200 Subject: [PATCH] mlib-prj.adb: Minor reformatting 2008-05-27 Robert Dewar * mlib-prj.adb: Minor reformatting * prj-part.adb: Minor reformatting * prj.ads: Minor reformatting * exp_ch3.adb: Minor reformatting. * sem_ch3.ads: Minor reformatting * sem_eval.adb: Minor reformatting From-SVN: r136027 --- gcc/ada/exp_ch3.adb | 2 +- gcc/ada/mlib-prj.adb | 21 +++++++++++---------- gcc/ada/prj-part.adb | 3 ++- gcc/ada/prj.ads | 2 +- gcc/ada/sem_ch3.ads | 1 + gcc/ada/sem_eval.adb | 2 +- 6 files changed, 17 insertions(+), 14 deletions(-) diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 71f09e4f3f1..b110121bc5e 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -7360,7 +7360,7 @@ package body Exp_Ch3 is -- return False; -- end if; - -- or a null statement if the list L is empty. + -- or a null statement if the list L is empty function Make_Eq_If (E : Entity_Id; diff --git a/gcc/ada/mlib-prj.adb b/gcc/ada/mlib-prj.adb index 3730199d69a..7e86facd99d 100644 --- a/gcc/ada/mlib-prj.adb +++ b/gcc/ada/mlib-prj.adb @@ -322,7 +322,8 @@ package body MLib.Prj is -- g-trasym.obj. Object_Directory_Path : constant String := - Get_Name_String (Data.Object_Directory.Display_Name); + Get_Name_String + (Data.Object_Directory.Display_Name); Standalone : constant Boolean := Data.Standalone_Library; @@ -1397,8 +1398,8 @@ package body MLib.Prj is if In_Main_Object_Directory or else Last < 5 - or else C_Filename (1 .. B_Start'Length) /= - B_Start.all + or else + C_Filename (1 .. B_Start'Length) /= B_Start.all then Name_Len := Last; Name_Buffer (1 .. Name_Len) := @@ -1439,8 +1440,8 @@ package body MLib.Prj is (In_Tree.Units) loop if In_Tree.Units.Table - (Index).File_Names - (Body_Part).Name /= No_File + (Index).File_Names + (Body_Part).Name /= No_File then Proj := In_Tree.Units.Table (Index). @@ -1448,7 +1449,7 @@ package body MLib.Prj is (Body_Part).Project; Fname := In_Tree.Units.Table (Index). - File_Names (Body_Part).Name; + File_Names (Body_Part).Name; elsif In_Tree.Units.Table @@ -1459,11 +1460,11 @@ package body MLib.Prj is Proj := In_Tree.Units.Table (Index).File_Names - (Specification).Project; + (Specification).Project; Fname := In_Tree.Units.Table (Index).File_Names - (Specification).Name; + (Specification).Name; else Proj := No_Project; @@ -1473,8 +1474,8 @@ package body MLib.Prj is -- If the source is in the -- project or a project it - -- extends, we may put it in the - -- library. + -- extends, we may put it in + -- the library. if Add_It then Add_It := Check_Project (Proj); diff --git a/gcc/ada/prj-part.adb b/gcc/ada/prj-part.adb index a1d655bbcbd..67c913378dd 100644 --- a/gcc/ada/prj-part.adb +++ b/gcc/ada/prj-part.adb @@ -1867,7 +1867,7 @@ package body Prj.Part is function Try_Path_Name (Path : String) return String_Access is Prj_Path : constant String := Project_Path; - First : Natural := Prj_Path'First; + First : Natural; Last : Natural; Result : String_Access := null; @@ -1887,6 +1887,7 @@ package body Prj.Part is -- Locate_Regular_File. So, we try each possible path -- successively. + First := Prj_Path'First; while First <= Prj_Path'Last loop while First <= Prj_Path'Last and then Prj_Path (First) = Path_Separator diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index edeb3ace65c..5d8caa79cd3 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -1275,7 +1275,7 @@ package Prj is Config : Project_Configuration; - Path : Path_Information := No_Path_Information; + Path : Path_Information := No_Path_Information; -- The path name of the project file Virtual : Boolean := False; diff --git a/gcc/ada/sem_ch3.ads b/gcc/ada/sem_ch3.ads index a341069bf75..89b85fe2c23 100644 --- a/gcc/ada/sem_ch3.ads +++ b/gcc/ada/sem_ch3.ads @@ -171,6 +171,7 @@ package Sem_Ch3 is -- family declaration or a loop iteration. The index is given by an -- index declaration (a 'box'), or by a discrete range. The later can -- be the name of a discrete type, or a subtype indication. + -- -- Related_Nod is the node where the potential generated implicit types -- will be inserted. The 2 last parameters are used for creating the name. diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index c03f11ab0af..15c3df81dc5 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -3388,7 +3388,7 @@ package body Sem_Eval is Rewrite (N, Make_Real_Literal (Loc, Realval => Val)); - -- Set link to original named number, for ASIS use. + -- Set link to original named number, for ASIS use Set_Original_Entity (N, Ent); -- 2.30.2