diff options
| -rw-r--r-- | src/grt/grt-disp_signals.adb | 6 | ||||
| -rw-r--r-- | src/grt/grt-processes.adb | 5 | ||||
| -rw-r--r-- | src/grt/grt-processes.ads | 1 |
3 files changed, 9 insertions, 3 deletions
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; |