OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Remove redundant initialization of Test_And_Set_Flag object

Browse Source 
gcc/ada/

	* exp_ch11.adb (Expand_N_Exception_Declaration): Remove explicit
	initialization of the exceptF object.
This commit is contained in:
Piotr Trojanek 2022-01-03 14:47:18 +01:00 committed by Pierre-Marie de Rodat
parent a4c26e697b
commit bf7355a7e8
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/exp_ch11.adb
View File

@ -1089,7 +1089,7 @@ package body Exp_Ch11 is
-- (protecting test only needed if not at library level)
-- exceptF : aliased System.Atomic_Operations.Test_And_Set.
-- .Test_And_Set_Flag := 0; -- static data
-- .Test_And_Set_Flag; -- static data
-- if not Atomic_Test_And_Set (exceptF) then
-- Register_Exception (except'Unrestricted_Access);
-- end if;
@ -1321,9 +1321,7 @@ package body Exp_Ch11 is
Defining_Identifier => Flag_Id,
Aliased_Present => True,
Object_Definition =>
New_Occurrence_Of (RTE (RE_Test_And_Set_Flag), Loc),
Expression =>
Make_Integer_Literal (Loc, 0));
New_Occurrence_Of (RTE (RE_Test_And_Set_Flag), Loc));
else
Flag_Decl :=
Make_Object_Declaration (Loc,