diff options
Diffstat (limited to 'translate/grt/grt-disp_signals.adb')
| -rw-r--r-- | translate/grt/grt-disp_signals.adb | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/translate/grt/grt-disp_signals.adb b/translate/grt/grt-disp_signals.adb index 0fdf01d..e9011c9 100644 --- a/translate/grt/grt-disp_signals.adb +++ b/translate/grt/grt-disp_signals.adb @@ -77,6 +77,12 @@ package body Grt.Disp_Signals is else Disp_Value (T.Val, Mode); end if; + when Trans_Direct => + if Sig_Type /= null then + Disp_Value (stdout, T.Val_Ptr.all, Sig_Type); + else + Disp_Value (T.Val_Ptr.all, Mode); + end if; when Trans_Null => Put ("NULL"); when Trans_Error => @@ -109,6 +115,11 @@ package body Grt.Disp_Signals is else Put ('-'); end if; + if Sig.Has_Active then + Put ('a'); + else + Put ('-'); + end if; if Sig.S.Effective /= null then Put ('e'); else @@ -258,7 +269,7 @@ package body Grt.Disp_Signals is Put (stdout, S.all'Address); Put (" net: "); Put_I32 (stdout, Ghdl_I32 (S.Net)); - if S.Flags.Has_Active then + if S.Has_Active then Put (" +A"); end if; New_Line; @@ -348,7 +359,7 @@ package body Grt.Disp_Signals is Put_Sig_Index (I); Put (": "); Put (stdout, Sig.all'Address); - if Sig.Flags.Has_Active then + if Sig.Has_Active then Put (" +A"); end if; Put (" net: "); |