Commit 7665df22 by Arnaud Charlet

Minor reformatting.

From-SVN: r219237
parent 4199e8c6
......@@ -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;
......
......@@ -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;
......
......@@ -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;
......
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