diff options
Diffstat (limited to 'src/vhdl/evaluation.adb')
| -rw-r--r-- | src/vhdl/evaluation.adb | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb index 627ec8b..b1adbbc 100644 --- a/src/vhdl/evaluation.adb +++ b/src/vhdl/evaluation.adb @@ -1486,12 +1486,9 @@ package body Evaluation is | Iir_Kind_Subtype_Declaration | Iir_Kind_Type_Declaration | Iir_Kind_Implicit_Dereference - | Iir_Kind_Function_Call => + | Iir_Kind_Function_Call + | Iir_Kind_Attribute_Value => Prefix_Type := Get_Type (Prefix); - when Iir_Kind_Attribute_Value => - -- The type of the attribute declaration may be unconstrained. - Prefix_Type := Get_Type - (Get_Expression (Get_Attribute_Specification (Prefix))); when Iir_Kinds_Subtype_Definition => Prefix_Type := Prefix; when Iir_Kinds_Denoting_Name => |