diff options
| author | Richard Kenner <kenner@adacore.com> | 2021-10-14 15:31:38 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-20 10:17:06 +0000 |
| commit | 4afb464e1f76d63d89c4034f78d5ebb3400eaf3c (patch) | |
| tree | 7251b32f62b7ec0217a3fa2725f114bc9bd11d76 /gcc | |
| parent | bd2560b726fa93b61060a9f469ad288c512961f3 (diff) | |
| download | gcc-4afb464e1f76d63d89c4034f78d5ebb3400eaf3c.zip gcc-4afb464e1f76d63d89c4034f78d5ebb3400eaf3c.tar.gz gcc-4afb464e1f76d63d89c4034f78d5ebb3400eaf3c.tar.bz2 | |
[Ada] Never treat intrinsic subprograms as nested
gcc/ada/
* exp_unst.adb (Visit_Node, when N_Subprogram_Call): Never treat
instrinsic subprograms as nested.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_unst.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index 1c5f618..be06580 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)); |