diff options
Diffstat (limited to 'src/vhdl/iirs_utils.adb')
| -rw-r--r-- | src/vhdl/iirs_utils.adb | 9 |
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 |