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

4 files changed, 14 insertions, 9 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d83d4f651f2..4979727ae49 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2017-04-25  Gary Dismukes  <dismukes@adacore.com>
+
+	* sem_prag.adb, sem_warn.adb, sem_eval.adb: Minor reformatting and
+	typo fixes.
+
 2017-04-25  Hristian Kirtchev  <kirtchev@adacore.com>
 
 	* comperr.adb (Compiler_Abort): Add a pair of pragma Warnings
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 --
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 6d570d07319..a3c5d14d666 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -3998,8 +3998,8 @@ package body Sem_Prag is
 
       procedure Set_Ravenscar_Profile (Profile : Profile_Name; N : Node_Id);
       --  Activate the set of configuration pragmas and restrictions that make
-      --  up the Profile. Profile must be either GNAT_Extended_Ravencar,
-      --  GNAT_Ravenscar_EDF or Ravenscar. N is the corresponding pragma node,
+      --  up the Profile. Profile must be either GNAT_Extended_Ravenscar,
+      --  GNAT_Ravenscar_EDF, or Ravenscar. N is the corresponding pragma node,
       --  which is used for error messages on any constructs violating the
       --  profile.
 
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index e6511f437f3..d4f3e4f6ae9 100644
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -3274,7 +3274,7 @@ package body Sem_Warn is
       --  Determine the potential outcome of the comparison assuming that the
       --  operands are valid. Do not consider instances because the check was
       --  already performed in the generic. Do not consider comparison between
-      --  an attribute reference and a compile time known value since this is
+      --  an attribute reference and a compile-time known value since this is
       --  most likely a conditional compilation. Do not consider internal files
       --  in order to allow for various assertions and safeguards within our
       --  runtime.