diff options
Diffstat (limited to 'sem_names.adb')
-rw-r--r-- | sem_names.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/sem_names.adb b/sem_names.adb index f7a28a579..f56dabcb6 100644 --- a/sem_names.adb +++ b/sem_names.adb @@ -1229,6 +1229,9 @@ package body Sem_Names is case Get_Kind (Res) is when Iir_Kind_Design_Unit => return; + when Iir_Kind_Block_Statement => + -- Part of an expanded name + return; when Iir_Kinds_Object_Declaration | Iir_Kind_Attribute_Value | Iir_Kind_Type_Declaration |