From: Bob Duff <duff@adacore.com>
Date: Tue, 20 Aug 2019 09:49:32 +0000 (+0000)
Subject: [Ada] Improve generated code for initialization of atomics
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7e7f0b0a1df83dd65810a057b5ce4d01618d2fa3;p=gcc.git

[Ada] Improve generated code for initialization of atomics

This patch makes the temp for initialization of an atomic variable be
constant.

No change in behavior; no test.

2019-08-20  Bob Duff  <duff@adacore.com>

gcc/ada/

	* freeze.adb (Is_Atomic_VFA_Aggregate): Make the temp for
	initialization of the atomic variable be constant. This is
	cleaner, and might improve efficiency.

From-SVN: r274728
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 82dd6a17a25..7affa92a7f6 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2019-08-20  Bob Duff  <duff@adacore.com>
+
+	* freeze.adb (Is_Atomic_VFA_Aggregate): Make the temp for
+	initialization of the atomic variable be constant. This is
+	cleaner, and might improve efficiency.
+
 2019-08-20  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* repinfo.adb (List_Record_Info): In -gnatR4 mode, set the
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index 70f4b9dc0f5..bb17e429020 100644
--- a/gcc/ada/freeze.adb
+++ b/gcc/ada/freeze.adb
@@ -1771,6 +1771,7 @@ package body Freeze is
       New_N :=
         Make_Object_Declaration (Loc,
           Defining_Identifier => Temp,
+          Constant_Present    => True,
           Object_Definition   => New_Occurrence_Of (Typ, Loc),
           Expression          => Relocate_Node (N));
       Insert_Before (Par, New_N);