diff options
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sem_eval.adb | 12 | ||||
| -rw-r--r-- | gcc/ada/sem_prag.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_warn.adb | 2 |
4 files changed, 14 insertions, 9 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index d83d4f6..4979727 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 8556149..073dfc6 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 6d570d0..a3c5d14 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 e6511f4..d4f3e4f 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. |