From aad9a60cc0cba4ce6f626c6367d11b14dba70926 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 29 Dec 2013 14:43:56 +0100
Subject: Revert cs156 and cs157 (the issues are caught before).

---
 iirs.adb | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/iirs.adb b/iirs.adb
index 3bb39dc43..405374c8b 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;
 
-- 
cgit v1.2.3