diff options
Diffstat (limited to 'src/vhdl/iirs_utils.adb')
| -rw-r--r-- | src/vhdl/iirs_utils.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb index 110300487..6f655569f 100644 --- a/src/vhdl/iirs_utils.adb +++ b/src/vhdl/iirs_utils.adb @@ -1189,6 +1189,14 @@ package body Iirs_Utils is (Els_List, Natural (Get_Element_Position (El))); end Get_Base_Element_Declaration; + procedure Append_Owned_Element_Constraint (Rec_Type : Iir; El : Iir) is + begin + pragma Assert (Get_Parent (El) = Rec_Type); + Set_Chain (El, Get_Owned_Elements_Chain (Rec_Type)); + Set_Owned_Elements_Chain (Rec_Type, El); + end Append_Owned_Element_Constraint; + + function Is_Second_Subprogram_Specification (Spec : Iir) return Boolean is Bod : constant Iir := Get_Chain (Spec); |