1 files changed, 5 insertions, 0 deletions
diff --git a/src/grt/grt-errors.adb b/src/grt/grt-errors.adb
index 29da11206..66dfbf1dd 100644
--- a/src/grt/grt-errors.adb
+++ b/src/grt/grt-errors.adb
@@ -259,4 +259,9 @@ package body Grt.Errors is
    begin
       Error ("overflow detected");
    end Grt_Overflow_Error;
+
+   procedure Grt_Null_Access_Error is
+   begin
+      Error ("NULL access dereferenced");
+   end Grt_Null_Access_Error;
 end Grt.Errors;