diff options
Diffstat (limited to 'src/grt/grt-disp_signals.adb')
-rw-r--r-- | src/grt/grt-disp_signals.adb | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/src/grt/grt-disp_signals.adb b/src/grt/grt-disp_signals.adb index 684a4548c..265ca7b2c 100644 --- a/src/grt/grt-disp_signals.adb +++ b/src/grt/grt-disp_signals.adb @@ -200,11 +200,15 @@ package body Grt.Disp_Signals is Put_Time (stdout, Sig.Last_Active); end if; Put (" val="); - if Sig_Type /= null then - Disp_Value (stdout, Sig.Value, Sig_Type); - else - Disp_Value (Sig.Value, Sig.Mode); - end if; + declare + Val : constant Value_Union := Read_Value (Sig.Value_Ptr, Sig.Mode); + begin + if Sig_Type /= null then + Disp_Value (stdout, Val, Sig_Type); + else + Disp_Value (Val, Sig.Mode); + end if; + end; Put ("; drv="); if Sig_Type /= null then Disp_Value (stdout, Sig.Driving_Value, Sig_Type); |