diff options
| -rw-r--r-- | sem_assocs.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/sem_assocs.adb b/sem_assocs.adb index b3fc42c..3ee7126 100644 --- a/sem_assocs.adb +++ b/sem_assocs.adb @@ -1015,6 +1015,7 @@ package body Sem_Assocs is Formal_Type := Get_Type (Inter); Set_Named_Entity (Formal, Inter); Set_Type (Formal, Formal_Type); + Set_Base_Name (Formal, Inter); --Xrefs.Xref_Name (Formal); return Whole; end if; |