diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-06-14 17:16:08 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-06-14 17:16:08 +0200 |
commit | 69f1a0ac6017b60d853ca8d5350d69ccd697920b (patch) | |
tree | 77d1e7356d4ced3842b2641af4afadc9426b97e6 /translate/grt | |
parent | 93861cf8c8670150a084f44089312dd146bc2cf3 (diff) | |
download | ghdl-69f1a0ac6017b60d853ca8d5350d69ccd697920b.tar.gz ghdl-69f1a0ac6017b60d853ca8d5350d69ccd697920b.tar.bz2 ghdl-69f1a0ac6017b60d853ca8d5350d69ccd697920b.zip |
grt-disp_signals: display explicitly direct drivers.
Diffstat (limited to 'translate/grt')
-rw-r--r-- | translate/grt/grt-disp_signals.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/translate/grt/grt-disp_signals.adb b/translate/grt/grt-disp_signals.adb index 940064482..424d20dcf 100644 --- a/translate/grt/grt-disp_signals.adb +++ b/translate/grt/grt-disp_signals.adb @@ -149,8 +149,13 @@ package body Grt.Disp_Signals is when Trans_Error => Put ("ERROR"); end case; - Put ("@"); - Put_Time (stdout, T.Time); + if T.Kind = Trans_Direct then + -- The Time field is not updated for direct transaction. + Put ("[DIRECT]"); + else + Put ("@"); + Put_Time (stdout, T.Time); + end if; T := T.Next; exit when T = null; Put (", "); |