diff options
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 19f4844a6bc..611edbaf5ba 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; |