aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/vhdl/vhdl-sem_names.adb1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb
index 1a3654f42..2e98fe6da 100644
--- a/src/vhdl/vhdl-sem_names.adb
+++ b/src/vhdl/vhdl-sem_names.adb
@@ -289,6 +289,7 @@ package body Vhdl.Sem_Names is
case Get_Kind (El) is
when Iir_Kind_Function_Call
| Iir_Kind_Indexed_Name
+ | Iir_Kind_Slice_Name
| Iir_Kind_Selected_Element =>
Sem_Name_Free (Get_Prefix (El));
Free_Iir (El);