1 files changed, 16 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb
index 1912fcb12..def8a9695 100644
--- a/src/vhdl/vhdl-nodes.adb
+++ b/src/vhdl/vhdl-nodes.adb
@@ -6461,6 +6461,22 @@ package body Vhdl.Nodes is
       Set_Field1 (Target, Chain);
    end Set_Case_Statement_Alternative_Chain;
 
+   function Get_Matching_Flag (Target : Iir) return Boolean is
+   begin
+      pragma Assert (Target /= Null_Iir);
+      pragma Assert (Has_Matching_Flag (Get_Kind (Target)),
+                     "no field Matching_Flag");
+      return Get_Flag1 (Target);
+   end Get_Matching_Flag;
+
+   procedure Set_Matching_Flag (Target : Iir; Flag : Boolean) is
+   begin
+      pragma Assert (Target /= Null_Iir);
+      pragma Assert (Has_Matching_Flag (Get_Kind (Target)),
+                     "no field Matching_Flag");
+      Set_Flag1 (Target, Flag);
+   end Set_Matching_Flag;
+
    function Get_Choice_Staticness (Target : Iir) return Iir_Staticness is
    begin
       pragma Assert (Target /= Null_Iir);