diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-01-24 05:14:35 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-01-24 05:14:35 +0100 |
commit | c03fc9f45df59e35ba9fba8bcf9e933fbb1074b9 (patch) | |
tree | 67f83680a6544012cc5755068f43a1089d0d8d53 /src/grt/grt-disp_signals.adb | |
parent | a4de40e69bbc961554e432f08fc146e07091c3f7 (diff) | |
download | ghdl-c03fc9f45df59e35ba9fba8bcf9e933fbb1074b9.tar.gz ghdl-c03fc9f45df59e35ba9fba8bcf9e933fbb1074b9.tar.bz2 ghdl-c03fc9f45df59e35ba9fba8bcf9e933fbb1074b9.zip |
simul: fix various issues.
Diffstat (limited to 'src/grt/grt-disp_signals.adb')
-rw-r--r-- | src/grt/grt-disp_signals.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/grt/grt-disp_signals.adb b/src/grt/grt-disp_signals.adb index 265ca7b2c..a9b613c60 100644 --- a/src/grt/grt-disp_signals.adb +++ b/src/grt/grt-disp_signals.adb @@ -527,8 +527,13 @@ package body Grt.Disp_Signals is Res_Status : Traverse_Result; pragma Unreferenced (Res_Status); + + Top : constant Rti_Context := Get_Top_Context; begin - Res_Status := Foreach_Block (Get_Top_Context); + if Top /= Null_Context then + Res_Status := Foreach_Block (Top); + end if; + if not Found then Put (Stream, "(unknown signal)"); end if; |