aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-nodes.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2021-01-04 18:58:54 +0100
committerTristan Gingold <tgingold@free.fr>2021-01-05 07:36:49 +0100
commit1034acdb7c3c0e8c120f738801951eccbdf59941 (patch)
tree8dd21f6218dc5396749daceb082021c9c5c1f232 /src/vhdl/vhdl-nodes.adb
parenta506cfc5066f9c8f05db335a01e4e12240e07987 (diff)
downloadghdl-1034acdb7c3c0e8c120f738801951eccbdf59941.tar.gz
ghdl-1034acdb7c3c0e8c120f738801951eccbdf59941.tar.bz2
ghdl-1034acdb7c3c0e8c120f738801951eccbdf59941.zip
vhdl: fix reprint of vhdl08 array element constraints.
Diffstat (limited to 'src/vhdl/vhdl-nodes.adb')
-rw-r--r--src/vhdl/vhdl-nodes.adb32
1 files changed, 32 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb
index b879ba275..1875e1ba3 100644
--- a/src/vhdl/vhdl-nodes.adb
+++ b/src/vhdl/vhdl-nodes.adb
@@ -4285,6 +4285,38 @@ package body Vhdl.Nodes is
Set_Field8 (Def, El);
end Set_Array_Element_Constraint;
+ function Get_Has_Array_Constraint_Flag (Def : Iir) return Boolean is
+ begin
+ pragma Assert (Def /= Null_Iir);
+ pragma Assert (Has_Has_Array_Constraint_Flag (Get_Kind (Def)),
+ "no field Has_Array_Constraint_Flag");
+ return Get_Flag5 (Def);
+ end Get_Has_Array_Constraint_Flag;
+
+ procedure Set_Has_Array_Constraint_Flag (Def : Iir; Flag : Boolean) is
+ begin
+ pragma Assert (Def /= Null_Iir);
+ pragma Assert (Has_Has_Array_Constraint_Flag (Get_Kind (Def)),
+ "no field Has_Array_Constraint_Flag");
+ Set_Flag5 (Def, Flag);
+ end Set_Has_Array_Constraint_Flag;
+
+ function Get_Has_Element_Constraint_Flag (Def : Iir) return Boolean is
+ begin
+ pragma Assert (Def /= Null_Iir);
+ pragma Assert (Has_Has_Element_Constraint_Flag (Get_Kind (Def)),
+ "no field Has_Element_Constraint_Flag");
+ return Get_Flag6 (Def);
+ end Get_Has_Element_Constraint_Flag;
+
+ procedure Set_Has_Element_Constraint_Flag (Def : Iir; Flag : Boolean) is
+ begin
+ pragma Assert (Def /= Null_Iir);
+ pragma Assert (Has_Has_Element_Constraint_Flag (Get_Kind (Def)),
+ "no field Has_Element_Constraint_Flag");
+ Set_Flag6 (Def, Flag);
+ end Set_Has_Element_Constraint_Flag;
+
function Get_Elements_Declaration_List (Decl : Iir) return Iir_Flist is
begin
pragma Assert (Decl /= Null_Iir);