diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-01-15 06:08:25 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-01-15 06:08:25 +0100 |
| commit | 97f7a2f1df86d1d21461068a6854623d2b389264 (patch) | |
| tree | dab4636b2e6b526c3dd80010032b63c72c15bbe8 /src/grt/grt-disp_rti.adb | |
| parent | 221bd46f4dd1bcb3496c7e6a9c728ed33b9616dd (diff) | |
| download | ghdl-97f7a2f1df86d1d21461068a6854623d2b389264.tar.gz ghdl-97f7a2f1df86d1d21461068a6854623d2b389264.tar.bz2 ghdl-97f7a2f1df86d1d21461068a6854623d2b389264.zip | |
grt-disp_rti: fix thinko (no blocks for if-generate).
Diffstat (limited to 'src/grt/grt-disp_rti.adb')
| -rw-r--r-- | src/grt/grt-disp_rti.adb | 7 |
1 files changed, 5 insertions, 2 deletions
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; |