diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index f8078ff62f3..5ac1c297a91 100644
--- a/gcc/ada/sem_ch13.adb
+++ b/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
diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb
index 6e56e1d10bf..5a8c27b7437 100644
--- a/gcc/ada/sem_eval.adb
+++ b/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