From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 1 Jul 2019 13:36:04 +0000 (+0000)
Subject: [Ada] Make No_Inline pragma effective for protected subprograms
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0c9c281da4651e8725429ff6709b48e3b2e62463;p=gcc.git

[Ada] Make No_Inline pragma effective for protected subprograms

2019-07-01  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* exp_ch9.adb (Check_Inlining): Deal with Has_Pragma_No_Inline.

From-SVN: r272871
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 25a9ef97693..c60b957641b 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2019-07-01  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* exp_ch9.adb (Check_Inlining): Deal with Has_Pragma_No_Inline.
+
 2019-07-01  Ed Schonberg  <schonberg@adacore.com>
 
 	* exp_unst.adb (Visit_Node, Check_Static_Type): Improve the
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb
index a3785d7c667..c431e864423 100644
--- a/gcc/ada/exp_ch9.adb
+++ b/gcc/ada/exp_ch9.adb
@@ -8950,6 +8950,9 @@ package body Exp_Ch9 is
             Set_Is_Inlined (Protected_Body_Subprogram (Subp));
             Set_Is_Inlined (Subp, False);
          end if;
+         if Has_Pragma_No_Inline (Subp) then
+            Set_Has_Pragma_No_Inline (Protected_Body_Subprogram (Subp));
+         end if;
       end Check_Inlining;
 
       ---------------------------