diff options
Diffstat (limited to 'sem_decls.adb')
| -rw-r--r-- | sem_decls.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sem_decls.adb b/sem_decls.adb index 7a46c79f8..c833f52b5 100644 --- a/sem_decls.adb +++ b/sem_decls.adb @@ -1691,7 +1691,7 @@ package body Sem_Decls is | Iir_Kind_Indexed_Name | Iir_Kind_Selected_Name | Iir_Kind_Selected_Element => - Set_Base_Name (Alias, Get_Base_Name (N_Name)); + Set_Base_Name (Alias, Alias); -- Get_Base_Name (N_Name)); Xref_Name (Name); Set_Name (Alias, N_Name); when others => |