[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 25a9ef9769337f9a8b5f1dc8ccff439f5c919803..c60b957641bbc6870b61d4649120541874c2d0fb 100644 (file)
--- 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 a3785d7c667ddabbe3758fda0c504624823d2bb4..c431e864423059ce9fdc154b37b6ee155c243e6d 100644 (file)
--- 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;
 
       ---------------------------