Minor reformatting.
authorArnaud Charlet <charlet@gcc.gnu.org>
Thu, 27 Apr 2017 10:20:52 +0000 (12:20 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Thu, 27 Apr 2017 10:20:52 +0000 (12:20 +0200)
From-SVN: r247314

gcc/ada/exp_util.adb
gcc/ada/sem_ch13.adb

index 4da91dad397d57ae1e0d576a5d4a92e7f52997f9..8c05d9956c4e07dad465bdc11829b38ff982a33c 100644 (file)
@@ -4745,8 +4745,8 @@ package body Exp_Util is
                   Force_Evaluation (E);
 
                   if Original_Node (E) /= E then
-                     Set_Do_Range_Check (E,
-                                         Do_Range_Check (Original_Node (E)));
+                     Set_Do_Range_Check
+                       (E, Do_Range_Check (Original_Node (E)));
                   end if;
 
                   Next (E);
index 2c2366d21920097296be948067e0cf1c69623ce5..b4eda29bcaec69bd6217bec0ed7762bab8f9689f 100644 (file)
@@ -9087,10 +9087,10 @@ package body Sem_Ch13 is
       if In_Instance then
          return;
 
-      --  The enclosing scope may have been rewritten during expansion (.e.g.
-      --  task body is rewritten as a procedure) after this conformance check
-      --  has been performed, so do not perform it again (it may not easily
-      --  be done if full visibility of local entities is not available).
+      --  The enclosing scope may have been rewritten during expansion (.e.g. a
+      --  task body is rewritten as a procedure) after this conformance check
+      --  has been performed, so do not perform it again (it may not easily be
+      --  done if full visibility of local entities is not available).
 
       elsif not Comes_From_Source (Current_Scope) then
          return;