Minor reformatting.

From-SVN: r219237

diff --git a/gcc/ada/a-stwiun-shared.ads b/gcc/ada/a-stwiun-shared.ads
index 20c2d426c1ffa4184628dc54822c1d12a0b4ee29..e37b1c23181b21f5d30c23f1e9c322049d1a8aab 100644 (file)
--- 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 3c9e016c07b2819a7e3dc7af587772d5ef503e3c..d84c86becc7e5b0cbd1b813b64efc1cff67d5ae8 100644 (file)
--- 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 a93139e3d1aa4cd43f47dade55dcbae197c6ee2d..b8e22ea8be2f241049584b2a9b3bf3137a527432 100644 (file)
--- 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;