diff options
Diffstat (limited to 'gcc/ada/sem_ch12.adb')
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 61803ed290e..4dfdac958bb 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -13434,9 +13434,14 @@ package body Sem_Ch12 is elsif Nkind (Act) /= N_Operator_Symbol then Analyze (Act); + -- Within a package instance, mark actuals that are limited + -- views, so their use can be moved to the body of the + -- enclosing unit. + if Is_Entity_Name (Act) and then Is_Type (Entity (Act)) and then From_Limited_With (Entity (Act)) + and then Present (Inst) then Append_Elmt (Entity (Act), Incomplete_Actuals (Inst)); end if; |