diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-08-12 22:53:53 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-05 08:20:08 +0000 |
| commit | eae33329ea4284da2c7b0235ef89095162fa5131 (patch) | |
| tree | b4de8fd1a255737eb9f52c6539cc1aea65875ea7 /gcc/ada/gcc-interface/trans.c | |
| parent | 650ad524d8a5928998037c1f6434054d46a400d4 (diff) | |
| download | gcc-eae33329ea4284da2c7b0235ef89095162fa5131.zip gcc-eae33329ea4284da2c7b0235ef89095162fa5131.tar.gz gcc-eae33329ea4284da2c7b0235ef89095162fa5131.tar.bz2 | |
[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.
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 4aaa567..ddf08b0a 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. */ |