From 97f7a2f1df86d1d21461068a6854623d2b389264 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 15 Jan 2015 06:08:25 +0100
Subject: grt-disp_rti: fix thinko (no blocks for if-generate).

---
 src/grt/grt-disp_rti.adb | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/grt')

diff --git a/src/grt/grt-disp_rti.adb b/src/grt/grt-disp_rti.adb
index ad45d087a..bf49fbbb9 100644
--- a/src/grt/grt-disp_rti.adb
+++ b/src/grt/grt-disp_rti.adb
@@ -704,8 +704,11 @@ package body Grt.Disp_Rti is
                           Ctxt, Indent + 1);
          when Ghdl_Rtik_If_Generate =>
             Nctxt := Get_If_Generate_Child (Ctxt, To_Ghdl_Rti_Access (Blk));
-            Disp_Block
-              (To_Ghdl_Rtin_Block_Acc (Nctxt.Block), Nctxt, Indent + 1);
+            if Nctxt /= Null_Context then
+               --  There might be no blocks.
+               Disp_Block
+                 (To_Ghdl_Rtin_Block_Acc (Nctxt.Block), Nctxt, Indent + 1);
+            end if;
          when others =>
             Internal_Error ("disp_block");
       end case;
-- 
cgit v1.2.3