diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-02-22 20:59:26 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-02-22 20:59:26 +0100 |
| commit | 39620f16799fe8aa80022322767ca9b5a2ad6089 (patch) | |
| tree | 0cfce80c0e3c45961c3531fba904fab1e8ddc018 | |
| parent | 8b2856dac2bae82a0b897f60e5198dd459795ee3 (diff) | |
| download | ghdl-39620f16799fe8aa80022322767ca9b5a2ad6089.tar.gz ghdl-39620f16799fe8aa80022322767ca9b5a2ad6089.tar.bz2 ghdl-39620f16799fe8aa80022322767ca9b5a2ad6089.zip | |
Disp driving process for --disp-sources
| -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; |