diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-03-01 14:22:26 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-03-01 14:22:26 +0100 |
commit | c05f4211c1734a61ec5775da3d479ebf4b0812a5 (patch) | |
tree | 84f0df8f6e30290cd00414b286139b6e29f627ef /src | |
parent | 63b7d214239ec994258153d8fbccf59d07b4ea26 (diff) | |
download | ghdl-c05f4211c1734a61ec5775da3d479ebf4b0812a5.tar.gz ghdl-c05f4211c1734a61ec5775da3d479ebf4b0812a5.tar.bz2 ghdl-c05f4211c1734a61ec5775da3d479ebf4b0812a5.zip |
Fix regressions after previous commit.
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/vhdl-utils.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb index 421bf4474..35cbef34a 100644 --- a/src/vhdl/vhdl-utils.adb +++ b/src/vhdl/vhdl-utils.adb @@ -449,6 +449,11 @@ package body Vhdl.Utils is when Iir_Kind_Simple_Name | Iir_Kind_Selected_Name => return Name_To_Value (Get_Named_Entity (Name)); + when Iir_Kind_Indexed_Name + | Iir_Kind_Selected_Element + | Iir_Kind_Slice_Name => + -- Already a value. + return Name; when others => return Name_To_Object (Name); end case; |