From 7665df2248b579883409aa636b08c99325c9810e Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 6 Jan 2015 10:39:03 +0100 Subject: [PATCH] Minor reformatting. From-SVN: r219237 --- gcc/ada/a-stwiun-shared.ads | 2 +- gcc/ada/a-stzunb-shared.ads | 2 +- 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 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; -- 2.30.2