From 4fb0f50bc59eac444acb171040964dc73d3d105f Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 25 Jul 2022 05:14:52 +0200 Subject: vhdl-nodes: add Get/Set_Reference_Terminal_Flag --- src/vhdl/vhdl-nodes.ads | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/vhdl/vhdl-nodes.ads') diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 6c96fd176..e2882fb7c 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -2198,6 +2198,10 @@ package Vhdl.Nodes is -- -- Get/Set_Nature (Field1) -- + -- Set if the terminal is a reference terminal, ie created by a nature + -- declaration (ie a ground). + -- Get/Set_Reference_Terminal_Flag (Flag1) + -- -- Get/Set_Visible_Flag (Flag4) -- -- Get/Set_Use_Flag (Flag6) @@ -3076,6 +3080,8 @@ package Vhdl.Nodes is -- Iir_Kind_Scalar_Nature_Definition (Medium) -- + -- Reference terminal (forward ref). + -- This is a declaration that is appended after the nature declaration. -- Get/Set_Reference (Field2) -- -- The declarator that has created this nature type. @@ -8153,6 +8159,10 @@ package Vhdl.Nodes is function Get_Subnature_Indication (Decl : Iir) return Iir; procedure Set_Subnature_Indication (Decl : Iir; Sub_Nature : Iir); + -- Field: Flag1 + function Get_Reference_Terminal_Flag (Decl : Iir) return Boolean; + procedure Set_Reference_Terminal_Flag (Decl : Iir; Flag : Boolean); + -- Mode of interfaces or file (v87). -- Field: Flag13,Flag14,Flag15 (grp) function Get_Mode (Target : Iir) return Iir_Mode; -- cgit v1.2.3