diff options
Diffstat (limited to 'gcc/ada/sem_ch6.adb')
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index eb6768d3ae2..5af3b7b7e19 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -4262,11 +4262,11 @@ package body Sem_Ch6 is -- object can then be used instead of the formal in case it is used -- in an actual to a call to a nested subprogram. - -- This method is used to suppliment our "small integer model" for - -- accessibility check generation (for more information see + -- This method is used to supplement our "small integer model" for + -- accessibility-check generation (for more information see -- Dynamic_Accessibility_Level). - -- Because we allow accesibility values greater than our expected value + -- Because we allow accessibility values greater than our expected value -- passing along the same extra accessibility formal as an actual -- to a nested subprogram becomes a problem because high values mean -- different things to the callee even though they are the same to the @@ -12038,7 +12038,7 @@ package body Sem_Ch6 is -- predicate may come from an explicit aspect of be inherited. elsif Has_Predicates (T) then - Insert_List_Before_And_Analyze (Decl, + Insert_List_After_And_Analyze (Decl, Freeze_Entity (Defining_Identifier (Decl), N)); end if; |