From: Arnaud Charlet <charlet@adacore.com>
Date: Wed, 18 Sep 2019 08:31:27 +0000 (+0000)
Subject: [Ada] Refine previous change for -gnatn and LLVM
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2778553904f1653be5f90679570f8a60eabf2cfc;p=gcc.git

[Ada] Refine previous change for -gnatn and LLVM

2019-09-18  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* exp_unst.adb (Unnest_Subprograms): Refine previous change.

From-SVN: r275837
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b327857a8fe..75ceaf1796c 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2019-09-18  Arnaud Charlet  <charlet@adacore.com>
+
+	* exp_unst.adb (Unnest_Subprograms): Refine previous change.
+
 2019-09-17  Claire Dross  <dross@adacore.com>
 
 	* libgnat/a-cofuma.ads, libgnat/a-cofuma.adb (Remove): New
diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb
index 7cc9a6a4231..8c492bc9f22 100644
--- a/gcc/ada/exp_unst.adb
+++ b/gcc/ada/exp_unst.adb
@@ -2592,9 +2592,9 @@ package body Exp_Unst is
          then
             Subp_Body := Parent (Declaration_Node
                                    (Corresponding_Body (Subp_Body)));
-            Unnest_Subprogram (Subp, Subp_Body, For_Inline => True);
          end if;
 
+         Unnest_Subprogram (Subp, Subp_Body, For_Inline => True);
          Next_Inlined_Subprogram (Subp);
       end loop;
    end Unnest_Subprograms;