From 0e7e68638e7116c304e4d2db6478934ae11ee710 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 29 Oct 2022 16:05:40 +0200
Subject: vhdl-sem_names(sem_name_free): handle iir_kind_slice_name.  For #2233

---
 src/vhdl/vhdl-sem_names.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

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);
-- 
cgit v1.2.3