[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 313a5efa165c98deb9485f774bbc6856f13bddab..c801498bc2a541216034ef5e225b093264ab7e4a 100644 (file)
--- 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 f7bb1a94734ebd80944c25ef0c2daa87b2b0da46..22a50e2b056141bded75912bc6afec74291847cd 100644 (file)
--- 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;