From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 18 May 2021 22:26:30 +0000 (+0200)
Subject: [Ada] Replace chopped string copy with renaming
X-Git-Tag: basepoints/gcc-13~6206
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6dcf89443d781561bfddf372ee33bf78fcad3a75;p=thirdparty%2Fgcc.git

[Ada] Replace chopped string copy with renaming

gcc/ada/

	* par.adb (Par): A local Name variable is now a renaming of a
	constant slice.
---

diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb
index 649d2a08dc05..312c41100d5e 100644
--- a/gcc/ada/par.adb
+++ b/gcc/ada/par.adb
@@ -1650,14 +1650,12 @@ begin
                      Uname : constant String :=
                                Get_Name_String
                                  (Unit_Name (Current_Source_Unit));
-                     Name  : String (1 .. Uname'Length - 2);
-
-                  begin
+                     Name  : String renames
+                       Uname (Uname'First .. Uname'Last - 2);
                      --  Because Unit_Name includes "%s"/"%b", we need to strip
                      --  the last two characters to get the real unit name.
 
-                     Name := Uname (Uname'First .. Uname'Last - 2);
-
+                  begin
                      if Name = "ada"         or else
                         Name = "interfaces"  or else
                         Name = "system"