diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2019-08-19 08:36:48 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-08-19 08:36:48 +0000 |
| commit | 92b635e518dfb3bc6829601c38a2c55ea8791887 (patch) | |
| tree | ded97d8286a25f4ebb126a8771ec71cb6f946c80 /gcc/ada/inline.adb | |
| parent | 432c8cdddae4ad6439ac1f85b30919d5bb91d3e1 (diff) | |
| download | gcc-92b635e518dfb3bc6829601c38a2c55ea8791887.zip gcc-92b635e518dfb3bc6829601c38a2c55ea8791887.tar.gz gcc-92b635e518dfb3bc6829601c38a2c55ea8791887.tar.bz2 | |
[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
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 3 |
1 files changed, 3 insertions, 0 deletions
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; |