From: Robert Dewar Date: Mon, 4 Aug 2014 12:54:59 +0000 (+0000) Subject: exp_ch6.adb, [...]: Minor reformatting. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=135da41f0d468b1f90c7ddcc6d965ba47b17ad5b;p=gcc.git exp_ch6.adb, [...]: Minor reformatting. 2014-08-04 Robert Dewar * exp_ch6.adb, sem_util.adb: Minor reformatting. From-SVN: r213581 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 49127ff21ba..3f10d889e19 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2014-08-04 Robert Dewar + + * exp_ch6.adb, sem_util.adb: Minor reformatting. + 2014-08-04 Olivier Hainque * a-comutr.ads: Set Root_Node_Type'Alignment to diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 82c87871f87..97464167129 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -5209,11 +5209,11 @@ package body Exp_Ch6 is -- Analyze call, but something goes wrong in some weird cases -- and it is not worth worrying about ??? - -- The return statement is handled properly, and the call to - -- the postcondition, inserted below, does not require + -- The return statement is handled properly, and the call + -- to the postcondition, inserted below, does not require -- information from the body either. However, that call is -- analyzed in the enclosing scope, and an elaboration check - -- might improperly be added to it. A guard in sem_elab is + -- might improperly be added to it. A guard in Sem_Elab is -- needed to prevent that spurious check, see Check_Elab_Call. Append_To (S, Rtn); diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index d55d7c5f63f..67599035b21 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -1260,7 +1260,7 @@ package body Sem_Util is procedure Build_Default_Init_Cond_Procedure_Body (Typ : Entity_Id); -- If type Typ is subject to pragma Default_Initial_Condition, build the -- body of the procedure which verifies the assumption of the pragma at - -- runtime. The generated body is added after the type declaration. + -- run time. The generated body is added after the type declaration. -------------------------------------------- -- Build_Default_Init_Cond_Procedure_Body -- @@ -1406,7 +1406,7 @@ package body Sem_Util is -- If the type is subject to pragma Default_Initial_Condition, -- generate the body of the internal procedure which verifies - -- the assertion of the pragma at runtime. + -- the assertion of the pragma at run time. if Has_Default_Init_Cond (Typ) then Build_Default_Init_Cond_Procedure_Body (Typ);