diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-05-19 00:26:30 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-07 16:23:12 +0000 |
| commit | 6dcf89443d781561bfddf372ee33bf78fcad3a75 (patch) | |
| tree | bd52698b169fa4a1be3066be0a60887af8c200a3 /gcc/ada/par.adb | |
| parent | 05435609367c0ae1398ac1b4becfae06d217552c (diff) | |
[Ada] Replace chopped string copy with renaming
gcc/ada/
* par.adb (Par): A local Name variable is now a renaming of a
constant slice.
Diffstat (limited to 'gcc/ada/par.adb')
| -rw-r--r-- | gcc/ada/par.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index 649d2a08dc0..312c41100d5 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" |