2017-04-25 Gary Dismukes <dismukes@adacore.com>

	* sem_prag.adb, sem_warn.adb, sem_eval.adb: Minor reformatting and
	typo fixes.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@247225 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 6 insertions, 6 deletions

diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb
index 855614957d4..073dfc6c34c 100644
--- a/gcc/ada/sem_eval.adb
+++ b/gcc/ada/sem_eval.adb
@@ -494,7 +494,7 @@ package body Sem_Eval is
       --  to gigi. The frontend computes the information about which
       --  expressions are static, which is used by gnat2why to call
       --  Check_Non_Static_Context on exactly those real literals that are
-      --  not sub-expressions of static expressions.
+      --  not subexpressions of static expressions.
 
       if Nkind (N) = N_Real_Literal
         and then not Is_Machine_Number (N)
@@ -3159,7 +3159,7 @@ package body Sem_Eval is
       --  of the required form, Ent is set to Empty.
       --
       --  Orig indicates whether Expr is the original expression to consider,
-      --  or if we are handling a sub-expression (e.g. recursive call to
+      --  or if we are handling a subexpression (e.g. recursive call to
       --  Decompose_Expr).
 
       procedure Fold_General_Op (Is_Static : Boolean);
@@ -3444,9 +3444,9 @@ package body Sem_Eval is
    begin
       --  One special case to deal with first. If we can tell that the result
       --  will be false because the lengths of one or more index subtypes are
-      --  compile time known and different, then we can replace the entire
-      --  result by False. We only do this for one dimensional arrays, because
-      --  the case of multi-dimensional arrays is rare and too much trouble. If
+      --  compile-time known and different, then we can replace the entire
+      --  result by False. We only do this for one-dimensional arrays, because
+      --  the case of multidimensional arrays is rare and too much trouble. If
       --  one of the operands is an illegal aggregate, its type might still be
       --  an arbitrary composite type, so nothing to do.
 
@@ -6068,7 +6068,7 @@ package body Sem_Eval is
       Orig_Op  : constant Node_Id   := Original_Node (Op);
 
       procedure Replacement_Warning (Msg : String);
-      --  Emit a warning on a comparison which can be replaced by '='
+      --  Emit a warning on a comparison that can be replaced by '='
 
       -------------------------
       -- Replacement_Warning --