[Ada] Fix bad interaction between Inline_Always and -gnateV + -gnata
commit66f2a0def548b7f2e4edb46e50fc0b72e84532cc
authorEric Botcazou <ebotcazou@adacore.com>
Fri, 6 May 2022 20:48:04 +0000 (6 22:48 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 1 Jun 2022 08:43:18 +0000 (1 08:43 +0000)
treecdcbff912d4a2ea1aa191c6566c83309daf63629
parent2ae98c3a75102cb4dbb9b8da690952a9971d4e93
[Ada] Fix bad interaction between Inline_Always and -gnateV + -gnata

The combination of pragma/aspect Inline_Always and -gnateV -gnata runs
afoul of the handling of inlining across units by gigi, which does not
inline a subprogram that calls nested subprograms if these subprograms
are not themselves inlined.

This condition does not apply to internally generated subprograms but
the special _postconditions procedure has Debug_Info_Needed set so it
is not considered as such and, as a consequence, triggers an error if
the enclosing subprogram requires inlining by means of Inline_Always.

The _postconditions procedure is already marked inlined when generating
C code so it makes sense to mark it inlined in the general case as well.

gcc/ada/

* contracts.adb (Build_Postconditions_Procedure): Set Is_Inlined
unconditionnally on the procedure entity.
gcc/ada/contracts.adb