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 /src/grt/grt-disp_signals.adb | |
parent | 8b2856dac2bae82a0b897f60e5198dd459795ee3 (diff) | |
download | ghdl-39620f16799fe8aa80022322767ca9b5a2ad6089.tar.gz ghdl-39620f16799fe8aa80022322767ca9b5a2ad6089.tar.bz2 ghdl-39620f16799fe8aa80022322767ca9b5a2ad6089.zip |
Disp driving process for --disp-sources
Diffstat (limited to 'src/grt/grt-disp_signals.adb')
-rw-r--r-- | src/grt/grt-disp_signals.adb | 6 |
1 files changed, 3 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; |