From 5aa0548d689468fde141ada9f33dc823e2de5a72 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 18 Jul 2014 11:46:49 +0200 Subject: [multiple changes] 2014-07-18 Robert Dewar * lib-writ.adb, makeutl.adb, ali.ads: Minor reformatting. 2014-07-18 Vincent Celier * lib-writ.ads: Update documentation about the D lines. From-SVN: r212796 --- gcc/ada/lib-writ.adb | 42 ++++++++++++++++++------------------------ 1 file changed, 18 insertions(+), 24 deletions(-) (limited to 'gcc/ada/lib-writ.adb') diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index 1240032..bd0ae5c 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -426,8 +426,8 @@ package body Lib.Writ is -- If this is a spec ... if (Is_Subprogram (Uent) - or else Ekind (Uent) = E_Package - or else Is_Generic_Unit (Uent)) + or else Ekind (Uent) = E_Package + or else Is_Generic_Unit (Uent)) -- and an elaboration entity was declared ... @@ -435,8 +435,7 @@ package body Lib.Writ is -- and either the elaboration flag is required ... - and then - (Elaboration_Entity_Required (Uent) + and then (Elaboration_Entity_Required (Uent) -- or this unit has elaboration code ... @@ -450,9 +449,7 @@ package body Lib.Writ is and then Present (Body_Entity (Uent)) and then not Has_No_Elaboration_Code - (Parent - (Declaration_Node - (Body_Entity (Uent)))))) + (Parent (Declaration_Node (Body_Entity (Uent)))))) then if Convention (Uent) = Convention_CIL then @@ -531,7 +528,7 @@ package body Lib.Writ is or else (Present (Library_Unit (Unode)) and then - Nkind (Unit (Library_Unit (Unode))) in N_Generic_Declaration) + Nkind (Unit (Library_Unit (Unode))) in N_Generic_Declaration) then Write_Info_Str (" GE"); end if; @@ -576,19 +573,18 @@ package body Lib.Writ is if Nkind (Unit (Unode)) in N_Unit_Body then for S in Units.First .. Last_Unit loop - -- We are only interested in subunits. - -- For preproc. data and def. files, Cunit is Empty, so - -- we need to test that first. + -- We are only interested in subunits. For preproc. data and + -- def. files, Cunit is Empty, so we need to test that first. if Cunit (S) /= Empty and then Nkind (Unit (Cunit (S))) = N_Subunit then Pnode := Library_Unit (Cunit (S)); - -- In gnatc mode, the errors in the subunits will not - -- have been recorded, but the analysis of the subunit - -- may have failed. There is no information to add to - -- ALI file in this case. + -- In gnatc mode, the errors in the subunits will not have + -- been recorded, but the analysis of the subunit may have + -- failed. There is no information to add to ALI file in + -- this case. if No (Pnode) then exit; @@ -780,8 +776,8 @@ package body Lib.Writ is -- Add element to with table if it is with'ed or if it is the -- parent spec of the main unit (case of main unit is a child -- unit). The latter with is not needed for semantic purposes, - -- but is required by the binder for elaboration purposes. - -- For preproc. data and def. files, there is no Unit_Name, + -- but is required by the binder for elaboration purposes. For + -- preprocessing data and definition files, there is no Unit_Name, -- check for that first. if Unit_Name (J) /= No_Unit_Name @@ -1057,8 +1053,8 @@ package body Lib.Writ is if Nkind (U) = N_Subprogram_Body and then Present (Corresponding_Spec (U)) and then - Ekind_In (Corresponding_Spec (U), - E_Generic_Procedure, E_Generic_Function) + Ekind_In (Corresponding_Spec (U), E_Generic_Procedure, + E_Generic_Function) then null; @@ -1183,9 +1179,7 @@ package body Lib.Writ is -- for which we have generated code for Unit in Units.First .. Last_Unit loop - if Units.Table (Unit).Generate_Code - or else Unit = Main_Unit - then + if Units.Table (Unit).Generate_Code or else Unit = Main_Unit then if not Has_No_Elaboration_Code (Cunit (Unit)) then Main_Restrictions.Violated (No_Elaboration_Code) := True; end if; @@ -1412,8 +1406,8 @@ package body Lib.Writ is if Sind /= No_Source_File then Fname := File_Name (Sind); - -- Ensure that on platforms where the file names are not - -- case sensitive, the recorded file name is in lower case. + -- Ensure that on platforms where the file names are not case + -- sensitive, the recorded file name is in lower case. if not File_Names_Case_Sensitive then Get_Name_String (Fname); -- cgit v1.1