diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2016-05-02 10:31:25 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-05-02 12:31:25 +0200 |
| commit | 14c3ae9af87a9c53e6bf0e692afb1900d0960f6f (patch) | |
| tree | edaaac6e9c243211ff8b0b82c0bd4cbe35e3b742 | |
| parent | 89d3b1a13386e9fc4070c54faaf3d29eb96db20d (diff) | |
| download | gcc-14c3ae9af87a9c53e6bf0e692afb1900d0960f6f.zip gcc-14c3ae9af87a9c53e6bf0e692afb1900d0960f6f.tar.gz gcc-14c3ae9af87a9c53e6bf0e692afb1900d0960f6f.tar.bz2 | |
exp_util.ads, [...]: Minor reformatting.
2016-05-02 Gary Dismukes <dismukes@adacore.com>
* exp_util.ads, sem_ch12.adb: Minor reformatting.
From-SVN: r235743
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_util.ads | 6 | ||||
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 8 |
3 files changed, 11 insertions, 7 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1ac7653..2a0ef8d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2016-05-02 Gary Dismukes <dismukes@adacore.com> + + * exp_util.ads, sem_ch12.adb: Minor reformatting. + 2016-05-02 Javier Miranda <miranda@adacore.com> * exp_util.ads, exp_util.adb (Force_Evaluation): Adding new formal. diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index 9beb054..8613645 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -542,8 +542,8 @@ package Exp_Util is -- of the same expression won't generate multiple side effects, whereas -- Force_Evaluation further guarantees that all evaluations will yield -- the same result. If Mode is Relaxed then calls to this subprogram have - -- no effect if Exp is side-effects free; if Mode is Strict and Exp is not - -- a static expression then no side-effects check is performed on Exp and + -- no effect if Exp is side-effect free; if Mode is Strict and Exp is not + -- a static expression then no side-effect check is performed on Exp and -- temporaries are unconditionally generated. -- -- Related_Id denotes the entity of the context where Expr appears. Flags @@ -985,7 +985,7 @@ package Exp_Util is (L : List_Id; Name_Req : Boolean := False; Variable_Ref : Boolean := False) return Boolean; - -- Determines if all elements of the list L are side effect free. Name_Req + -- Determines if all elements of the list L are side-effect free. Name_Req -- and Variable_Ref are as described above. procedure Silly_Boolean_Array_Not_Test (N : Node_Id; T : Entity_Id); diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 0d8446d..9daba77 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -5759,7 +5759,7 @@ package body Sem_Ch12 is -------------------- procedure Check_Mismatch (B : Boolean) is - -- a Formal_Type_Declaration for a derived private type is rewritten + -- A Formal_Type_Declaration for a derived private type is rewritten -- as a private extension decl. (see Analyze_Formal_Derived_Type), -- which is why we examine the original node. @@ -5927,9 +5927,9 @@ package body Sem_Ch12 is -- If the formal entity comes from a formal declaration, it was -- defaulted in the formal package, and no check is needed on it. - elsif - Nkind_In (Original_Node (Parent (E2)), - N_Formal_Object_Declaration, N_Formal_Type_Declaration) + elsif Nkind_In (Original_Node (Parent (E2)), + N_Formal_Object_Declaration, + N_Formal_Type_Declaration) then goto Next_E; |