diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-03-22 19:06:48 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-21 09:26:45 +0200 |
| commit | 5035d5e33bce179c19c32d9f4aa2c47a5a29d8df (patch) | |
| tree | 1bafc1d65b8780ca20fd4fc45d0c213eb5cbf1cf /gcc/ada | |
| parent | 1bc1fa1160f186b1120bf354f3be3f9b0bf536fb (diff) | |
| download | gcc-5035d5e33bce179c19c32d9f4aa2c47a5a29d8df.zip gcc-5035d5e33bce179c19c32d9f4aa2c47a5a29d8df.tar.gz gcc-5035d5e33bce179c19c32d9f4aa2c47a5a29d8df.tar.bz2 | |
ada: Remove conversion from String_Id to String and back to String_Id
Code cleanup; semantics is unaffected.
gcc/ada/
* exp_put_image.adb (Build_Record_Put_Image_Procedure): Remove
useless conversions.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_put_image.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/exp_put_image.adb b/gcc/ada/exp_put_image.adb index f5141a5..09fbfa7 100644 --- a/gcc/ada/exp_put_image.adb +++ b/gcc/ada/exp_put_image.adb @@ -44,7 +44,6 @@ with Sinfo.Nodes; use Sinfo.Nodes; with Sinfo.Utils; use Sinfo.Utils; with Snames; use Snames; with Stand; -with Stringt; use Stringt; with Tbuild; use Tbuild; with Ttypes; use Ttypes; with Uintp; use Uintp; @@ -832,9 +831,8 @@ package body Exp_Put_Image is Parameter_Associations => New_List (Make_Identifier (Loc, Name_S), Make_String_Literal (Loc, - To_String - (Fully_Qualified_Name_String - (Btyp, Append_NUL => False)))))); + Fully_Qualified_Name_String + (Btyp, Append_NUL => False))))); end if; elsif Is_Null_Record_Type (Btyp, Ignore_Privacy => True) then |