diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/a-stwiun-shared.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/a-stzunb-shared.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_util.adb | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/a-stwiun-shared.ads b/gcc/ada/a-stwiun-shared.ads index 20c2d42..e37b1c2 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 3c9e016..d84c86b 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 a93139e..b8e22ea 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; |