From: Piotr Trojanek <trojanek@adacore.com>
Date: Mon, 3 Jan 2022 13:47:18 +0000 (+0100)
Subject: [Ada] Remove redundant initialization of Test_And_Set_Flag object
X-Git-Tag: basepoints/gcc-13~1863
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bf7355a7e8c8cace2c151b78ed3dc6f26ae4487f;p=thirdparty%2Fgcc.git

[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.
---

diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb
index b440f675183d..b2eff312bafe 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,