[gcc r15-1265] ada: Inline if -gnatn in CCG mode even if -O0

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:01f8250bc88c154c3996621b577adbfca073a382

commit r15-1265-g01f8250bc88c154c3996621b577adbfca073a382
Author: Richard Kenner <ken...@adacore.com>
Date:   Mon Apr 22 20:20:16 2024 -0400

    ada: Inline if -gnatn in CCG mode even if -O0
    
    gcc/ada/
    
            * exp_ch6.adb (Expand_Ctrl_Function_Call): Inline if -gnatn in
            CCG mode even if -O0.

Diff:
---
 gcc/ada/exp_ch6.adb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 005210ce6bda..2e873c9c908b 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -5311,10 +5311,11 @@ package body Exp_Ch6 is
          then
             Expand_Inlined_Call (Call_Node, Subp, Orig_Subp);
 
-         --  Back-end inlining either if optimization is enabled or the call is
-         --  required to be inlined.
+         --  Back-end inlining either if optimization is enabled, we're
+         --  generating C, or the call is required to be inlined.
 
          elsif Optimization_Level > 0
+           or else CCG_Mode
            or else Has_Pragma_Inline_Always (Subp)
          then
             Add_Inlined_Body (Subp, Call_Node);