From 92b635e518dfb3bc6829601c38a2c55ea8791887 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 19 Aug 2019 08:36:48 +0000 Subject: [Ada] Further cleanup in inlining machinery This adds missing boilerplate stuff. No functional changes. 2019-08-19 Eric Botcazou gcc/ada/ * inline.adb (Initialize, Lock): Deal with Called_Pending_Instantiations. From-SVN: r274656 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/inline.adb | 3 +++ 2 files changed, 8 insertions(+) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 313a5ef..c801498 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2019-08-19 Eric Botcazou + + * inline.adb (Initialize, Lock): Deal with + Called_Pending_Instantiations. + 2019-08-19 Ed Schonberg * sem_ch6.adb (Check_Synchronized_Overriding): Complete diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index f7bb1a9..22a50e2 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; -- cgit v1.1