diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2022-10-28 20:28:45 +0200 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2022-11-14 14:46:49 +0100 |
| commit | fe02d7d9135083ed157886913b4a83ebc88e987c (patch) | |
| tree | 14b1bce545858b5b7e8ec3b0ee0da9e3b5a80cab | |
| parent | eba0e79739847cf07d1efd5c1c7bc0ab0d4133d1 (diff) | |
| download | gcc-fe02d7d9135083ed157886913b4a83ebc88e987c.zip gcc-fe02d7d9135083ed157886913b4a83ebc88e987c.tar.gz gcc-fe02d7d9135083ed157886913b4a83ebc88e987c.tar.bz2 | |
ada: Expand generic formal subprograms with contracts for GNATprove
In GNATprove mode generic formal subprograms with Pre/Post contracts are
now expanded into wrappers, just like in ordinary compilation.
gcc/ada/
* sem_ch12.adb (Analyze_Associations): Expand wrappers for
GNATprove.
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 2766560..7af365e 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -1937,7 +1937,7 @@ package body Sem_Ch12 is -- take place e.g. within an enclosing generic unit. if Has_Contracts (Analyzed_Formal) - and then Expander_Active + and then (Expander_Active or GNATprove_Mode) then Build_Subprogram_Wrappers; end if; |