diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-10-29 16:05:40 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-10-29 16:05:40 +0200 |
| commit | 0e7e68638e7116c304e4d2db6478934ae11ee710 (patch) | |
| tree | cb95c155f8d14df7c47adaf7f91714d65c6a1cbe /src | |
| parent | 822eb3ebbef2641099dc38e3677cc68001c2d239 (diff) | |
| download | ghdl-0e7e68638e7116c304e4d2db6478934ae11ee710.tar.gz ghdl-0e7e68638e7116c304e4d2db6478934ae11ee710.tar.bz2 ghdl-0e7e68638e7116c304e4d2db6478934ae11ee710.zip | |
vhdl-sem_names(sem_name_free): handle iir_kind_slice_name. For #2233
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-sem_names.adb | 1 |
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); |