1 files changed, 0 insertions, 11 deletions
diff --git a/iirs.adb b/iirs.adb
index 3bb39dc..405374c 100644
--- a/iirs.adb
+++ b/iirs.adb
@@ -145,17 +145,6 @@ package body Iirs is
       --  Speed up: avoid to check that nkind is in the bounds of Iir_Kind.
       pragma Suppress (Range_Check);
    begin
-      if An_Iir = Null_Iir then
-         if Nbr_Errors = 0 then
-            -- calling "Failed" would get back here via Error_Kind
-            Error_Msg ("Cannot get kind of null object : aborting.");
-            raise Internal_Error;
-         else
-            Error_Msg_Sem ("Aborting compilation due to previous errors.",
-                           An_Iir);
-            raise Compilation_Error;
-         end if;
-      end if;
       return Iir_Kind'Val (Get_Nkind (An_Iir));
    end Get_Kind;