From eae33329ea4284da2c7b0235ef89095162fa5131 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 12 Aug 2021 22:53:53 +0200 Subject: [PATCH] [Ada] Do not unconditionally inline expression functions with -gnatd.8 gcc/ada/ * gcc-interface/trans.c (Subprogram_Body_to_gnu): Do not set the DECL_DISREGARD_INLINE_LIMITS flag if -gnatd.8 is specified. --- gcc/ada/gcc-interface/trans.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 4aaa567237c4..ddf08b0a501a 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -3893,7 +3893,7 @@ Subprogram_Body_to_gnu (Node_Id gnat_node) /* If the body comes from an expression function, arrange it to be inlined in almost all cases. */ - if (Was_Expression_Function (gnat_node)) + if (Was_Expression_Function (gnat_node) && !Debug_Flag_Dot_8) DECL_DISREGARD_INLINE_LIMITS (gnu_subprog_decl) = 1; /* Try to create a bona-fide thunk and hand it over to the middle-end. */ -- 2.47.3