From 4afb464e1f76d63d89c4034f78d5ebb3400eaf3c Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Thu, 14 Oct 2021 15:31:38 -0400 Subject: [PATCH] [Ada] Never treat intrinsic subprograms as nested gcc/ada/ * exp_unst.adb (Visit_Node, when N_Subprogram_Call): Never treat instrinsic subprograms as nested. --- gcc/ada/exp_unst.adb | 1 + 1 file changed, 1 insertion(+) diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index 1c5f61806c1..be0658034ca 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));