diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2016-04-21 09:26:02 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-21 11:26:02 +0200 |
| commit | bbe008b6e975f3afc971a990f70e78d25fbc3180 (patch) | |
| tree | c5cd442b61c09ac23e9348beedcfe0d36cc7ca92 /gcc/ada/sem_ch3.adb | |
| parent | 35f4f238400a5527ee68546c03e320768f01bc48 (diff) | |
| download | gcc-bbe008b6e975f3afc971a990f70e78d25fbc3180.zip gcc-bbe008b6e975f3afc971a990f70e78d25fbc3180.tar.gz gcc-bbe008b6e975f3afc971a990f70e78d25fbc3180.tar.bz2 | |
sem_ch3.adb, [...]: Minor reformatting.
2016-04-21 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch3.adb, exp_attr.adb, exp_ch6.adb, exp_aggr.adb: Minor
reformatting.
From-SVN: r235322
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 19f4844..611edba 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -5071,11 +5071,12 @@ package body Sem_Ch3 is and then Has_Predicates (T) and then Present (Predicate_Function (T)) then + -- ??? This is dangerous, it may clobber the invariant procedure + Set_Subprograms_For_Type (Id, Subprograms_For_Type (T)); if Has_Static_Predicate (T) then - Set_Static_Discrete_Predicate (Id, - Static_Discrete_Predicate (T)); + Set_Static_Discrete_Predicate (Id, Static_Discrete_Predicate (T)); end if; end if; |