diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-10-04 05:26:04 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-10-04 05:26:04 +0200 |
| commit | 5e70bbd59e2ced9ee725e62821ff78ca0b2b0639 (patch) | |
| tree | 5b82a857d65e2007abefc7eda550065ca58294fa | |
| parent | f41461814109f8e761102f2336d82e6616647958 (diff) | |
| download | ghdl-5e70bbd59e2ced9ee725e62821ff78ca0b2b0639.tar.gz ghdl-5e70bbd59e2ced9ee725e62821ff78ca0b2b0639.tar.bz2 ghdl-5e70bbd59e2ced9ee725e62821ff78ca0b2b0639.zip | |
Sem_Name_Clean: handle selected_name.
| -rw-r--r-- | src/vhdl/sem_names.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index 8334d1505..ba00197f8 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -3801,7 +3801,8 @@ package body Sem_Names is when Iir_Kind_Simple_Name | Iir_Kind_Operator_Symbol => Sem_Name_Clean_1 (Name); - when Iir_Kind_Parenthesis_Name => + when Iir_Kind_Parenthesis_Name + | Iir_Kind_Selected_Name => Sem_Name_Clean_1 (Get_Prefix (Name)); Sem_Name_Clean_1 (Name); when others => |