1 files changed, 8 insertions, 0 deletions
diff --git a/src/simul/simul-vhdl_debug.adb b/src/simul/simul-vhdl_debug.adb
index 8edf963d8..8eb2c1cab 100644
--- a/src/simul/simul-vhdl_debug.adb
+++ b/src/simul/simul-vhdl_debug.adb
@@ -216,6 +216,10 @@ package body Simul.Vhdl_Debug is
       Sig : Ghdl_Signal_Ptr;
    begin
       Sig := Simul.Vhdl_Simul.Read_Sig (S.Mem);
+      if Sig = null then
+         Put_Line ("*not yet elaborated*");
+         return;
+      end if;
       Put_Addr (Sig.all'Address);
       Put (' ');
       Grt.Disp_Signals.Disp_Single_Signal_Attributes (Sig);
@@ -333,6 +337,10 @@ package body Simul.Vhdl_Debug is
       Ctxt : Rti_Context;
    begin
       Sig := Simul.Vhdl_Simul.Read_Sig (S.Mem);
+      if Sig = null then
+         Put_Line ("*not yet elaborated*");
+         return;
+      end if;
       Put_Addr (Sig.all'Address);
       Put (' ');
       Ev := Sig.Event_List;