diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-01-03 14:47:18 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-01-11 13:24:46 +0000 |
| commit | bf7355a7e8c8cace2c151b78ed3dc6f26ae4487f (patch) | |
| tree | 4eaf796fd71bea26e33dab58ed68f3af792416ae /gcc | |
| parent | a4c26e697b230b131c6336dc61d955c28fafa3ae (diff) | |
| download | gcc-bf7355a7e8c8cace2c151b78ed3dc6f26ae4487f.zip gcc-bf7355a7e8c8cace2c151b78ed3dc6f26ae4487f.tar.gz gcc-bf7355a7e8c8cace2c151b78ed3dc6f26ae4487f.tar.bz2 | |
[Ada] Remove redundant initialization of Test_And_Set_Flag object
gcc/ada/
* exp_ch11.adb (Expand_N_Exception_Declaration): Remove explicit
initialization of the exceptF object.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_ch11.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb index b440f67..b2eff31 100644 --- a/gcc/ada/exp_ch11.adb +++ b/gcc/ada/exp_ch11.adb @@ -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, |