diff options
Diffstat (limited to 'sem_assocs.adb')
-rw-r--r-- | sem_assocs.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sem_assocs.adb b/sem_assocs.adb index f393cfd0e..23252f5ce 100644 --- a/sem_assocs.adb +++ b/sem_assocs.adb @@ -921,7 +921,7 @@ package body Sem_Assocs is end if; Rec_El := Find_Name_In_List (Get_Elements_Declaration_List (Base_Type), - Get_Suffix_Identifier (Name)); + Get_Identifier (Name)); if Rec_El = Null_Iir then Name_Type := Null_Iir; return; |