From 39620f16799fe8aa80022322767ca9b5a2ad6089 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 22 Feb 2017 20:59:26 +0100 Subject: Disp driving process for --disp-sources --- src/grt/grt-disp_signals.adb | 6 +++--- src/grt/grt-processes.adb | 5 +++++ src/grt/grt-processes.ads | 1 + 3 files changed, 9 insertions(+), 3 deletions(-) (limited to 'src/grt') diff --git a/src/grt/grt-disp_signals.adb b/src/grt/grt-disp_signals.adb index e635733d9..2634a7f99 100644 --- a/src/grt/grt-disp_signals.adb +++ b/src/grt/grt-disp_signals.adb @@ -117,9 +117,6 @@ package body Grt.Disp_Signals is end case; end Disp_Context; - -- This is a debugging procedure. - pragma Unreferenced (Disp_Context); - -- Option --trace-signals. -- Disp transaction TRANS from signal SIG. @@ -236,6 +233,9 @@ package body Grt.Disp_Signals is for I in 0 .. Sig.S.Nbr_Drivers - 1 loop New_Line; Put (" "); + Disp_Context + (Processes.Get_Rti_Context (Sig.S.Drivers (I).Proc)); + Put (": "); Disp_Transaction (Sig.S.Drivers (I).First_Trans, Sig_Type, Sig.Mode); end loop; 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; diff --git a/src/grt/grt-processes.ads b/src/grt/grt-processes.ads index 00b057e41..e09f553e5 100644 --- a/src/grt/grt-processes.ads +++ b/src/grt/grt-processes.ads @@ -160,6 +160,7 @@ package Grt.Processes is procedure Ghdl_Protected_Init (Obj : System.Address); procedure Ghdl_Protected_Fini (Obj : System.Address); + function Get_Rti_Context (Proc : Process_Acc) return Rtis_Addr.Rti_Context; private type Instance is null record; -- cgit v1.2.3