diff --git a/gcc/ada/a-stwiun-shared.ads b/gcc/ada/a-stwiun-shared.ads
index 20c2d426c1f..e37b1c23181 100644
--- a/gcc/ada/a-stwiun-shared.ads
+++ b/gcc/ada/a-stwiun-shared.ads
@@ -415,7 +415,7 @@ private
       Last : Natural := 0;
       Data : Wide_String (1 .. Max_Length);
       --  Last is the index of last significant element of the Data. All
-      --  elements with larger indices are just an extra room.
+      --  elements with larger indexes are just extra room for expansion.
    end record;
 
    type Shared_Wide_String_Access is access all Shared_Wide_String;
diff --git a/gcc/ada/a-stzunb-shared.ads b/gcc/ada/a-stzunb-shared.ads
index 3c9e016c07b..d84c86becc7 100644
--- a/gcc/ada/a-stzunb-shared.ads
+++ b/gcc/ada/a-stzunb-shared.ads
@@ -424,7 +424,7 @@ private
       Last : Natural := 0;
       Data : Wide_Wide_String (1 .. Max_Length);
       --  Last is the index of last significant element of the Data. All
-      --  elements with larger indices are just an extra room.
+      --  elements with larger indexes are just extra room for expansion.
    end record;
 
    type Shared_Wide_Wide_String_Access is access all Shared_Wide_Wide_String;
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index a93139e3d1a..b8e22ea8be2 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -2133,7 +2133,7 @@ package body Sem_Util is
                   begin
                      Id := Get_Function_Id (Call);
 
-                     --  In case of previous error, no check is posible.
+                     --  In case of previous error, no check is possible
 
                      if No (Id) then
                         return Abandon;