diff options
Diffstat (limited to 'src/grt')
-rw-r--r-- | src/grt/grt-disp_signals.adb | 6 | ||||
-rw-r--r-- | src/grt/grt-processes.adb | 1 | ||||
-rw-r--r-- | src/grt/grt-processes.ads | 3 |
3 files changed, 4 insertions, 6 deletions
diff --git a/src/grt/grt-disp_signals.adb b/src/grt/grt-disp_signals.adb index a5e9993b2..887898109 100644 --- a/src/grt/grt-disp_signals.adb +++ b/src/grt/grt-disp_signals.adb @@ -341,7 +341,7 @@ package body Grt.Disp_Signals is Action := Sig.Event_List; while Action /= null loop Put (stdout, " wakeup "); - Grt.Processes.Disp_Process_Name (stdout, Action.Proc); + Put (stdout, Grt.Processes.Get_Rti_Context (Action.Proc)); New_Line (stdout); Action := Action.Next; end loop; @@ -349,8 +349,8 @@ package body Grt.Disp_Signals is if Sig.S.Mode_Sig in Mode_Signal_User then for I in 1 .. Sig.S.Nbr_Drivers loop Put (stdout, " driven "); - Grt.Processes.Disp_Process_Name - (stdout, Sig.S.Drivers (I - 1).Proc); + Put (stdout, + Grt.Processes.Get_Rti_Context (Sig.S.Drivers (I - 1).Proc)); New_Line (stdout); end loop; end if; diff --git a/src/grt/grt-processes.adb b/src/grt/grt-processes.adb index f19d9bfa2..c10c0ac95 100644 --- a/src/grt/grt-processes.adb +++ b/src/grt/grt-processes.adb @@ -40,6 +40,7 @@ with Grt.Disp_Signals; with Grt.Stats; with Grt.Threads; use Grt.Threads; pragma Elaborate_All (Grt.Table); +with Grt.Stdio; package body Grt.Processes is Last_Time : constant Std_Time := Std_Time'Last; diff --git a/src/grt/grt-processes.ads b/src/grt/grt-processes.ads index de470f1f7..02e078ee4 100644 --- a/src/grt/grt-processes.ads +++ b/src/grt/grt-processes.ads @@ -29,7 +29,6 @@ with Grt.Types; use Grt.Types; with Grt.Signals; use Grt.Signals; with Grt.Rtis; use Grt.Rtis; with Grt.Rtis_Addr; -with Grt.Stdio; package Grt.Processes is pragma Suppress (All_Checks); @@ -88,8 +87,6 @@ package Grt.Processes is -- Total number of resumed processes. function Get_Nbr_Resumed_Processes return Long_Long_Integer; - -- Disp the name of process PROC. - procedure Disp_Process_Name (Stream : Grt.Stdio.FILEs; Proc : Process_Acc); -- Instance is the parameter of the process procedure. -- This is in fact a fully opaque type whose content is private to the |