diff options
Diffstat (limited to 'gcc/ada/sem_eval.adb')
-rw-r--r-- | gcc/ada/sem_eval.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index f38e0595e45..c9054f387a8 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -1911,9 +1911,9 @@ package body Sem_Eval is Atyp := Designated_Type (Atyp); end if; - -- If we have an array type (we should have but perhaps there - -- are error cases where this is not the case), then see if we - -- can do a constant evaluation of the array reference. + -- If we have an array type (we should have but perhaps there are + -- error cases where this is not the case), then see if we can do + -- a constant evaluation of the array reference. if Is_Array_Type (Atyp) and then Atyp /= Any_Composite then if Ekind (Atyp) = E_String_Literal_Subtype then @@ -1983,8 +1983,8 @@ package body Sem_Eval is -- Numeric literals are static (RM 4.9(1)), and have already been marked -- as static by the analyzer. The reason we did it that early is to allow -- the possibility of turning off the Is_Static_Expression flag after - -- analysis, but before resolution, when integer literals are generated - -- in the expander that do not correspond to static expressions. + -- analysis, but before resolution, when integer literals are generated in + -- the expander that do not correspond to static expressions. procedure Eval_Integer_Literal (N : Node_Id) is T : constant Entity_Id := Etype (N); |