From 2223b28208687b1c6e969907365b2dbb34d6677d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 4 Jun 2020 03:57:42 +0200
Subject: grt: do not export disp_process_name.

---
 src/grt/grt-disp_signals.adb | 6 +++---
 src/grt/grt-processes.adb    | 1 +
 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
-- 
cgit v1.2.3