parent
4199e8c6fb
commit
7665df2248
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue