From 90e6af708c10805f4cbdb4b638103635a5022d28 Mon Sep 17 00:00:00 2001
From: Brian Drummond <brian@shapes.demon.co.uk>
Date: Sun, 15 Dec 2013 11:49:47 +0000
Subject: Fix potential infinite recursion in previous commit

---
 iirs.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/iirs.adb b/iirs.adb
index b22ef6e4e..4cc9a59ba 100644
--- a/iirs.adb
+++ b/iirs.adb
@@ -147,7 +147,9 @@ package body Iirs is
    begin
       if An_Iir = Null_Iir then
          if Nbr_Errors = 0 then
-            Failed ("Mode", An_Iir);
+            -- 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);
-- 
cgit v1.2.3