From 6dcf89443d781561bfddf372ee33bf78fcad3a75 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 19 May 2021 00:26:30 +0200 Subject: [Ada] Replace chopped string copy with renaming gcc/ada/ * par.adb (Par): A local Name variable is now a renaming of a constant slice. --- gcc/ada/par.adb | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 649d2a0..312c411 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" -- cgit v1.1