diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-10-01 17:02:27 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-10-01 17:12:12 +0200 |
commit | 7784fd83f47763efc5126b96cebc322f3311774e (patch) | |
tree | 8a431ece559553ea816b430aa1f0b58e5295c175 /src/vhdl/evaluation.adb | |
parent | d5702f01058dc85caca2538c456717abab2d18f8 (diff) | |
download | ghdl-7784fd83f47763efc5126b96cebc322f3311774e.tar.gz ghdl-7784fd83f47763efc5126b96cebc322f3311774e.tar.bz2 ghdl-7784fd83f47763efc5126b96cebc322f3311774e.zip |
Consider object for array attribute.
Fix issue #151
Diffstat (limited to 'src/vhdl/evaluation.adb')
-rw-r--r-- | src/vhdl/evaluation.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb index 06b8b5537..9c5f4cf3c 100644 --- a/src/vhdl/evaluation.adb +++ b/src/vhdl/evaluation.adb @@ -1488,7 +1488,8 @@ package body Evaluation is | Iir_Kind_Type_Declaration | Iir_Kind_Implicit_Dereference | Iir_Kind_Function_Call - | Iir_Kind_Attribute_Value => + | Iir_Kind_Attribute_Value + | Iir_Kind_Attribute_Name => Prefix_Type := Get_Type (Prefix); when Iir_Kinds_Subtype_Definition => Prefix_Type := Prefix; |