evaluation: tune evaluation of composite values.

1 files changed, 9 insertions, 0 deletions

diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb
index 4664f8dfa..5d407a3e6 100644
--- a/src/vhdl/iirs_utils.adb
+++ b/src/vhdl/iirs_utils.adb
@@ -1278,6 +1278,15 @@ package body Iirs_Utils is
       end case;
    end Is_Entity_Instantiation;
 
+   function Get_Attribute_Name_Expression (Name : Iir) return Iir
+   is
+      Attr_Val : constant Iir := Get_Named_Entity (Name);
+      Attr_Spec : constant Iir := Get_Attribute_Specification (Attr_Val);
+      Attr_Expr : constant Iir := Get_Expression (Attr_Spec);
+   begin
+      return Attr_Expr;
+   end Get_Attribute_Name_Expression;
+
    function Get_String_Type_Bound_Type (Sub_Type : Iir) return Iir is
    begin
       if Get_Kind (Sub_Type) /= Iir_Kind_Array_Subtype_Definition then