1 files changed, 9 insertions, 0 deletions
diff --git a/src/grt/grt-lib.adb b/src/grt/grt-lib.adb
index 13a0f1da4..f94c4b0c9 100644
--- a/src/grt/grt-lib.adb
+++ b/src/grt/grt-lib.adb
@@ -205,6 +205,15 @@ package body Grt.Lib is
       Error_E_Call_Stack (Bt);
    end Ghdl_Direction_Check_Failed;
 
+   procedure Ghdl_Access_Check_Failed
+   is
+      Bt : Backtrace_Addrs;
+   begin
+      Save_Backtrace (Bt, 1);
+      Error_S ("NULL access dereferenced");
+      Error_E_Call_Stack (Bt);
+   end Ghdl_Access_Check_Failed;
+
    procedure Diag_C_Range (Rng : Std_Integer_Range_Ptr) is
    begin
       Diag_C (Rng.Left);