From: Richard Kenner <kenner@adacore.com>
Date: Thu, 14 Oct 2021 19:31:38 +0000 (-0400)
Subject: [Ada] Never treat intrinsic subprograms as nested
X-Git-Tag: basepoints/gcc-13~3759
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=4afb464e1f76d63d89c4034f78d5ebb3400eaf3c;p=thirdparty%2Fgcc.git

[Ada] Never treat intrinsic subprograms as nested

gcc/ada/

	* exp_unst.adb (Visit_Node, when N_Subprogram_Call): Never treat
	instrinsic subprograms as nested.
---

diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb
index 1c5f61806c1e..be0658034ca1 100644
--- a/gcc/ada/exp_unst.adb
+++ b/gcc/ada/exp_unst.adb
@@ -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));