Commit 7665df22 by Arnaud Charlet

Minor reformatting.

From-SVN: r219237
parent 4199e8c6
...@@ -415,7 +415,7 @@ private ...@@ -415,7 +415,7 @@ private
Last : Natural := 0; Last : Natural := 0;
Data : Wide_String (1 .. Max_Length); Data : Wide_String (1 .. Max_Length);
-- Last is the index of last significant element of the Data. All -- 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; end record;
type Shared_Wide_String_Access is access all Shared_Wide_String; type Shared_Wide_String_Access is access all Shared_Wide_String;
......
...@@ -424,7 +424,7 @@ private ...@@ -424,7 +424,7 @@ private
Last : Natural := 0; Last : Natural := 0;
Data : Wide_Wide_String (1 .. Max_Length); Data : Wide_Wide_String (1 .. Max_Length);
-- Last is the index of last significant element of the Data. All -- 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; end record;
type Shared_Wide_Wide_String_Access is access all Shared_Wide_Wide_String; type Shared_Wide_Wide_String_Access is access all Shared_Wide_Wide_String;
......
...@@ -2133,7 +2133,7 @@ package body Sem_Util is ...@@ -2133,7 +2133,7 @@ package body Sem_Util is
begin begin
Id := Get_Function_Id (Call); 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 if No (Id) then
return Abandon; return Abandon;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment