diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-06-04 03:57:42 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-06-04 13:39:08 +0200 |
| commit | 2223b28208687b1c6e969907365b2dbb34d6677d (patch) | |
| tree | a95aabf96c27284acf10451fca5d9cd45ddc14a9 | |
| parent | f32435e68c434138e84af286ec8206ebd42c238d (diff) | |
| download | ghdl-2223b28208687b1c6e969907365b2dbb34d6677d.tar.gz ghdl-2223b28208687b1c6e969907365b2dbb34d6677d.tar.bz2 ghdl-2223b28208687b1c6e969907365b2dbb34d6677d.zip | |
grt: do not export disp_process_name.
| -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 |