From 1034acdb7c3c0e8c120f738801951eccbdf59941 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 4 Jan 2021 18:58:54 +0100 Subject: vhdl: fix reprint of vhdl08 array element constraints. --- src/vhdl/vhdl-nodes.ads | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'src/vhdl/vhdl-nodes.ads') diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index f092fd598..93ea74f11 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -2970,7 +2970,16 @@ package Vhdl.Nodes is -- -- Get/Set_Has_Signal_Flag (Flag3) -- + -- True if the indexes are constrained (either by this definition or by + -- a parent). -- Get/Set_Index_Constraint_Flag (Flag4) + -- + -- If True, an array constraint is lexically present (at least for the + -- index). This can be an index constraint or 'open'. + -- Get/Set_Has_Array_Constraint_Flag (Flag5) + -- + -- If True, an element constraint is lexically present. It can be 'open'. + -- Get/Set_Has_Element_Constraint_Flag (Flag6) -- Iir_Kind_Range_Expression (Short) -- @@ -8270,6 +8279,14 @@ package Vhdl.Nodes is function Get_Array_Element_Constraint (Def : Iir) return Iir; procedure Set_Array_Element_Constraint (Def : Iir; El : Iir); + -- Field: Flag5 + function Get_Has_Array_Constraint_Flag (Def : Iir) return Boolean; + procedure Set_Has_Array_Constraint_Flag (Def : Iir; Flag : Boolean); + + -- Field: Flag6 + function Get_Has_Element_Constraint_Flag (Def : Iir) return Boolean; + procedure Set_Has_Element_Constraint_Flag (Def : Iir; Flag : Boolean); + -- List of elements of a record. -- For a record_type_definition: Is_Ref is false, as the elements -- declaration are owned by the type definition. -- cgit v1.2.3