[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
This commit is contained in:
parent
432c8cddda
commit
92b635e518
|
@ -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>
|
2019-08-19 Ed Schonberg <schonberg@adacore.com>
|
||||||
|
|
||||||
* sem_ch6.adb (Check_Synchronized_Overriding): Complete
|
* sem_ch6.adb (Check_Synchronized_Overriding): Complete
|
||||||
|
|
|
@ -4416,6 +4416,7 @@ package body Inline is
|
||||||
procedure Initialize is
|
procedure Initialize is
|
||||||
begin
|
begin
|
||||||
Pending_Instantiations.Init;
|
Pending_Instantiations.Init;
|
||||||
|
Called_Pending_Instantiations.Init;
|
||||||
Inlined_Bodies.Init;
|
Inlined_Bodies.Init;
|
||||||
Successors.Init;
|
Successors.Init;
|
||||||
Inlined.Init;
|
Inlined.Init;
|
||||||
|
@ -4734,6 +4735,8 @@ package body Inline is
|
||||||
begin
|
begin
|
||||||
Pending_Instantiations.Release;
|
Pending_Instantiations.Release;
|
||||||
Pending_Instantiations.Locked := True;
|
Pending_Instantiations.Locked := True;
|
||||||
|
Called_Pending_Instantiations.Release;
|
||||||
|
Called_Pending_Instantiations.Locked := True;
|
||||||
Inlined_Bodies.Release;
|
Inlined_Bodies.Release;
|
||||||
Inlined_Bodies.Locked := True;
|
Inlined_Bodies.Locked := True;
|
||||||
Successors.Release;
|
Successors.Release;
|
||||||
|
|
Loading…
Reference in New Issue