procedure Add_Real_To_Buffer (U : Ureal) is
begin
Add_Uint_To_Buffer (Norm_Num (U));
- Add_Str_To_Name_Buffer ("_");
+ Add_Char_To_Name_Buffer ('_');
Add_Uint_To_Buffer (Norm_Den (U));
end Add_Real_To_Buffer;
Add_Real_To_Buffer (Delta_Value (E));
if Small_Value (E) /= Delta_Value (E) then
- Add_Str_To_Name_Buffer ("_");
+ Add_Char_To_Name_Buffer ('_');
Add_Real_To_Buffer (Small_Value (E));
end if;
if Lo_Encode or Hi_Encode then
if Biased then
- Add_Str_To_Name_Buffer ("_");
+ Add_Char_To_Name_Buffer ('_');
else
if Lo_Encode then
if Hi_Encode then
begin
Set_Entity_Name (Var);
- Add_Str_To_Name_Buffer ("L");
+ Add_Char_To_Name_Buffer ('L');
Set_Chars (Var, Name_Enter);
end;
and then Ekind (Scope (Homonym (Ent))) = E_Block
then
Set_Entity_Name (Ent);
- Add_Str_To_Name_Buffer ("B");
+ Add_Char_To_Name_Buffer ('B');
Set_Chars (Ent, Name_Enter);
end if;
end if;
-- Insert a blank between the literal and the symbol
- Add_Str_To_Name_Buffer (" ");
+ Add_Char_To_Name_Buffer (' ');
Append (Global_Name_Buffer, Symbol_Of (Typ));
Error_Msg_Name_1 := Name_Find;