1 files changed, 5 insertions, 0 deletions
diff --git a/src/grt/grt-processes.adb b/src/grt/grt-processes.adb
index 67b7a88a5..935b74121 100644
--- a/src/grt/grt-processes.adb
+++ b/src/grt/grt-processes.adb
@@ -128,6 +128,11 @@ package body Grt.Processes is
       return Nbr_Resumed_Processes;
    end Get_Nbr_Resumed_Processes;
 
+   function Get_Rti_Context (Proc : Process_Acc) return Rti_Context is
+   begin
+      return Proc.Rti;
+   end Get_Rti_Context;
+
    procedure Process_Register (This : Instance_Acc;
                                Proc : Proc_Acc;
                                Ctxt : Rti_Context;