vhdl-nodes: add Get/Set_Stop_Flag. For #2150

1 files changed, 16 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb
index c2d45fe32..71914dfd3 100644
--- a/src/vhdl/vhdl-nodes.adb
+++ b/src/vhdl/vhdl-nodes.adb
@@ -7170,6 +7170,22 @@ package body Vhdl.Nodes is
       Set_Flag11 (Stmt, Flag);
    end Set_Suspend_Flag;
 
+   function Get_Stop_Flag (Stmt : Iir) return Boolean is
+   begin
+      pragma Assert (Stmt /= Null_Iir);
+      pragma Assert (Has_Stop_Flag (Get_Kind (Stmt)),
+                     "no field Stop_Flag");
+      return Get_Flag13 (Stmt);
+   end Get_Stop_Flag;
+
+   procedure Set_Stop_Flag (Stmt : Iir; Flag : Boolean) is
+   begin
+      pragma Assert (Stmt /= Null_Iir);
+      pragma Assert (Has_Stop_Flag (Get_Kind (Stmt)),
+                     "no field Stop_Flag");
+      Set_Flag13 (Stmt, Flag);
+   end Set_Stop_Flag;
+
    function Get_Is_Ref (N : Iir) return Boolean is
    begin
       pragma Assert (N /= Null_Iir);