procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Never treat intrinsic subprograms as nested

Browse source 
gcc/ada/

	* exp_unst.adb (Visit_Node, when N_Subprogram_Call): Never treat
	instrinsic subprograms as nested.
This commit is contained in:
Richard Kenner 2021-10-14 15:31:38 -04:00 • committed by Pierre-Marie de Rodat
parent bd2560b726
commit 4afb464e1f
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
gcc/ada/exp_unst.adb
View file

@ -888,6 +888,7 @@ package body Exp_Unst is
if Is_Subprogram (Ent)
and then not Is_Generic_Subprogram (Ent)
and then not Is_Imported (Ent)
and then not Is_Intrinsic_Subprogram (Ent)
and then Scope_Within (Ultimate_Alias (Ent), Subp)
then
Append_Unique_Call ((N, Current_Subprogram, Ent));