diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-12-01 16:58:47 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-05 11:32:37 +0000 |
| commit | 48b8a564c9565635db0a93b9b1e6a31d38547981 (patch) | |
| tree | d0a9d4b631b379e309cc1b2b5ae48b0a02617017 /gcc | |
| parent | ad2fd234e7087b2a7bb7e3554736663d3ea5d6be (diff) | |
| download | gcc-48b8a564c9565635db0a93b9b1e6a31d38547981.zip gcc-48b8a564c9565635db0a93b9b1e6a31d38547981.tar.gz gcc-48b8a564c9565635db0a93b9b1e6a31d38547981.tar.bz2 | |
[Ada] Use Add_Char_To_Name_Buffer for 1-character strings
gcc/ada/
* exp_dbug.adb, sem_dim.adb: Replace Add_Str_To_Name_Buffer with
Add_Char_To_Name_Buffer.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_dbug.adb | 10 | ||||
| -rw-r--r-- | gcc/ada/sem_dim.adb | 2 |
2 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb index 19d546e..a282b8a 100644 --- a/gcc/ada/exp_dbug.adb +++ b/gcc/ada/exp_dbug.adb @@ -172,7 +172,7 @@ package body Exp_Dbug is 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; @@ -671,7 +671,7 @@ package body Exp_Dbug is 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; @@ -710,7 +710,7 @@ package body Exp_Dbug is 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 @@ -1535,7 +1535,7 @@ package body Exp_Dbug is begin Set_Entity_Name (Var); - Add_Str_To_Name_Buffer ("L"); + Add_Char_To_Name_Buffer ('L'); Set_Chars (Var, Name_Enter); end; @@ -1544,7 +1544,7 @@ package body Exp_Dbug is 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; diff --git a/gcc/ada/sem_dim.adb b/gcc/ada/sem_dim.adb index a38b129..960c567 100644 --- a/gcc/ada/sem_dim.adb +++ b/gcc/ada/sem_dim.adb @@ -2759,7 +2759,7 @@ package body Sem_Dim is -- 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; |