procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ada: Cleanup expansion of object declarations

Browse source 
Replace repeated calls to Sloc with uses of local constant Loc.

Code cleanup; behavior is unaffected.

gcc/ada/

	* exp_ch3.adb (Expand_N_Object_Declaration): Replace calls to Sloc
	with uses of Loc; turn variable Prag into constant.
This commit is contained in:
Piotr Trojanek 2024-08-08 17:06:09 +02:00 • committed by Marc Poulhiès
parent 78acc6d85f
commit 905ab329cc
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gcc/ada/exp_ch3.adb
View file

@ -7658,11 +7658,9 @@ package body Exp_Ch3 is
and then Is_Library_Level_Entity (Def_Id)
then
declare
Prag : Node_Id;
Prag : constant Node_Id :=
Make_Linker_Section_Pragma (Def_Id, Loc, ".persistent.bss");
begin
Prag :=
Make_Linker_Section_Pragma
(Def_Id, Sloc (N), ".persistent.bss");
Insert_After (N, Prag);
Analyze (Prag);
end;
@ -8349,10 +8347,8 @@ package body Exp_Ch3 is
-- An Ada 2012 stand-alone object of an anonymous access type
declare
Loc : constant Source_Ptr := Sloc (N);
Level : constant Entity_Id :=
Make_Defining_Identifier (Sloc (N),
Make_Defining_Identifier (Loc,
Chars =>
New_External_Name (Chars (Def_Id), Suffix => "L"));