From 0c9c281da4651e8725429ff6709b48e3b2e62463 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 1 Jul 2019 13:36:04 +0000 Subject: [PATCH] [Ada] Make No_Inline pragma effective for protected subprograms 2019-07-01 Eric Botcazou gcc/ada/ * exp_ch9.adb (Check_Inlining): Deal with Has_Pragma_No_Inline. From-SVN: r272871 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/exp_ch9.adb | 3 +++ 2 files changed, 7 insertions(+) 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 + + * exp_ch9.adb (Check_Inlining): Deal with Has_Pragma_No_Inline. + 2019-07-01 Ed Schonberg * 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; --------------------------- -- 2.30.2