https://gcc.gnu.org/g:5035d5e33bce179c19c32d9f4aa2c47a5a29d8df
commit r15-721-g5035d5e33bce179c19c32d9f4aa2c47a5a29d8df Author: Piotr Trojanek <troja...@adacore.com> Date: Fri Mar 22 19:06:48 2024 +0100 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. Diff: --- gcc/ada/exp_put_image.adb | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/gcc/ada/exp_put_image.adb b/gcc/ada/exp_put_image.adb index f5141a56626..09fbfa75eeb 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