From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 19 Aug 2019 08:36:48 +0000 (+0000)
Subject: [Ada] Further cleanup in inlining machinery
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=92b635e518dfb3bc6829601c38a2c55ea8791887;p=gcc.git

[Ada] Further cleanup in inlining machinery

This adds missing boilerplate stuff.  No functional changes.

2019-08-19  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* inline.adb (Initialize, Lock): Deal with
	Called_Pending_Instantiations.

From-SVN: r274656
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 313a5efa165..c801498bc2a 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2019-08-19  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* inline.adb (Initialize, Lock): Deal with
+	Called_Pending_Instantiations.
+
 2019-08-19  Ed Schonberg  <schonberg@adacore.com>
 
 	* sem_ch6.adb (Check_Synchronized_Overriding): Complete
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index f7bb1a94734..22a50e2b056 100644
--- a/gcc/ada/inline.adb
+++ b/gcc/ada/inline.adb
@@ -4416,6 +4416,7 @@ package body Inline is
    procedure Initialize is
    begin
       Pending_Instantiations.Init;
+      Called_Pending_Instantiations.Init;
       Inlined_Bodies.Init;
       Successors.Init;
       Inlined.Init;
@@ -4734,6 +4735,8 @@ package body Inline is
    begin
       Pending_Instantiations.Release;
       Pending_Instantiations.Locked := True;
+      Called_Pending_Instantiations.Release;
+      Called_Pending_Instantiations.Locked := True;
       Inlined_Bodies.Release;
       Inlined_Bodies.Locked := True;
       Successors.Release;