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

1 files changed, 8 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads
index e2882fb7c..0fc291be2 100644
--- a/src/vhdl/vhdl-nodes.ads
+++ b/src/vhdl/vhdl-nodes.ads
@@ -3334,6 +3334,10 @@ package Vhdl.Nodes is
    -- Only for Iir_Kind_Process_Statement:
    --   Get/Set_Suspend_Flag (Flag11)
    --
+   --  Set when std.env.stop/finish is called.  Prevents the infinite loop
+   --  warning.
+   --   Get/Set_Stop_Flag (Flag13)
+   --
    -- Only for Iir_Kind_Sensitized_Process_Statement:
    --   Get/Set_Is_Ref (Flag12)
 
@@ -9462,6 +9466,10 @@ package Vhdl.Nodes is
    function Get_Suspend_Flag (Stmt : Iir) return Boolean;
    procedure Set_Suspend_Flag (Stmt : Iir; Flag : Boolean);
 
+   --  Field: Flag13
+   function Get_Stop_Flag (Stmt : Iir) return Boolean;
+   procedure Set_Stop_Flag (Stmt : Iir; Flag : Boolean);
+
    --  Set to True if Maybe_Ref fields are references.  This cannot be shared
    --  with Has_Identifier_List as: Is_Ref is set to True on all items but
    --  the first, while Has_Identifier_List is set to True on all items but