Minor editing.

From-SVN: r244795

gcc/ada/sem_ch13.adb

@@ -4908,7 +4908,7 @@ package body Sem_Ch13 is
                     ("\?j?use interrupt procedure instead", N);
                end if;
 
-            --  Case of an address clause for a controlled object which we
+            --  Case of an address clause for a controlled object, which we
             --  consider to be erroneous.
 
             elsif Is_Controlled (Etype (U_Ent))
@@ -4923,7 +4923,7 @@ package body Sem_Ch13 is
                    Reason => PE_Overlaid_Controlled_Object));
                return;
 
-            --  Case of an address clause for a class-wide object which is
+            --  Case of an address clause for a class-wide object, which is
             --  considered erroneous.
 
             elsif Is_Class_Wide_Type (Etype (U_Ent)) then

gcc/ada/sem_eval.adb

@@ -2682,7 +2682,7 @@ package body Sem_Eval is
       --  If the literal appears in a non-expression context, then it is
       --  certainly appearing in a non-static context, so check it. This is
       --  actually a redundant check, since Check_Non_Static_Context would
-      --  check it, but it seems worth while to optimize out the call.
+      --  check it, but it seems worthwhile to optimize out the call.
 
       --  An exception is made for a literal in an if or case expression