OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Ignore pragma Elaborate_Body in spec of a SAL_Interface package

Browse Source 
2018-05-22  Bob Duff  <duff@adacore.com>

gcc/ada/

	* binde.adb: (Choose): Ignore a pragma Elaborate_Body that appears in
	the spec of a SAL_Interface package.

From-SVN: r260517
This commit is contained in:
Bob Duff 2018-05-22 13:23:12 +00:00 committed by Pierre-Marie de Rodat
parent 85c73d6369
commit 6b3035ab58
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2018-05-22 Bob Duff <duff@adacore.com>
* binde.adb: (Choose): Ignore a pragma Elaborate_Body that appears in
the spec of a SAL_Interface package.
2018-05-22 Ed Schonberg <schonberg@adacore.com>
* freeze.adb (Freeze_Entity): When analyzing delayed aspects of an

8
gcc/ada/binde.adb
View File

@ -1123,6 +1123,14 @@ package body Binde is
and then Units.Table (Chosen).RCI
then
null;
-- If this unit is an interface to a stand-alone library, then we
-- don't want to elaborate the body -- that will happen as part of
-- the library.
elsif Units.Table (Chosen).SAL_Interface then
null;
else
Choose
(Elab_Order => Elab_Order,