1 files changed, 8 insertions, 0 deletions
diff --git a/iirs.ads b/iirs.ads
index ab46a39..3c2d60f 100644
--- a/iirs.ads
+++ b/iirs.ads
@@ -1879,6 +1879,10 @@ package Iirs is
    --
    --   Get/Set_Callees_List (Field7)
    --
+   -- The concurrent statement at the origin of that process.  This is Null_Iir
+   -- for a user process.
+   --   Get/Set_Process_Origin (Field8)
+   --
    --   Get/Set_Wait_State (State1)
    --
    --   Get/Set_Seen_Flag (Flag1)
@@ -4867,6 +4871,10 @@ package Iirs is
    function Get_Sensitivity_List (Wait : Iir) return Iir_List;
    procedure Set_Sensitivity_List (Wait : Iir; List : Iir_List);
 
+   --  Field: Field8
+   function Get_Process_Origin (Proc : Iir) return Iir;
+   procedure Set_Process_Origin (Proc : Iir; Orig : Iir);
+
    --  Field: Field5
    function Get_Condition_Clause (Wait : Iir_Wait_Statement) return Iir;
    procedure Set_Condition_Clause (Wait : Iir_Wait_Statement; Cond : Iir);