diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-07-05 03:58:37 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-07-07 19:26:43 +0200 |
| commit | e305214943ba24c32b4c4883447d14da0bbf9d02 (patch) | |
| tree | 71bf746c57dd27ff11b9619f5f74514bbec963d1 /src/grt/grt-disp_rti.adb | |
| parent | a2c0bdd3a58297c9d3ef649d565c371c30c2a6cc (diff) | |
| download | ghdl-e305214943ba24c32b4c4883447d14da0bbf9d02.tar.gz ghdl-e305214943ba24c32b4c4883447d14da0bbf9d02.tar.bz2 ghdl-e305214943ba24c32b4c4883447d14da0bbf9d02.zip | |
vhdl08: add support of case-generate statement
Diffstat (limited to 'src/grt/grt-disp_rti.adb')
| -rw-r--r-- | src/grt/grt-disp_rti.adb | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/grt/grt-disp_rti.adb b/src/grt/grt-disp_rti.adb index ad1798f99..2a49281a7 100644 --- a/src/grt/grt-disp_rti.adb +++ b/src/grt/grt-disp_rti.adb @@ -383,6 +383,8 @@ package body Grt.Disp_Rti is Put ("ghdl_rtik_block"); when Ghdl_Rtik_If_Generate => Put ("ghdl_rtik_if_generate"); + when Ghdl_Rtik_Case_Generate => + Put ("ghdl_rtik_case_generate"); when Ghdl_Rtik_For_Generate => Put ("ghdl_rtik_for_generate"); when Ghdl_Rtik_Generate_Body => @@ -737,8 +739,10 @@ package body Grt.Disp_Rti is when Ghdl_Rtik_Generate_Body => Disp_Rti_Arr (Blk.Nbr_Child, Blk.Children, Ctxt, Indent + 1); - when Ghdl_Rtik_If_Generate => - Nctxt := Get_If_Generate_Child (Ctxt, To_Ghdl_Rti_Access (Blk)); + when Ghdl_Rtik_If_Generate + | Ghdl_Rtik_Case_Generate => + Nctxt := Get_If_Case_Generate_Child + (Ctxt, To_Ghdl_Rti_Access (Blk)); if Nctxt /= Null_Context then -- There might be no blocks. Disp_Block @@ -1149,7 +1153,8 @@ package body Grt.Disp_Rti is | Ghdl_Rtik_Process | Ghdl_Rtik_Block => Disp_Block (To_Ghdl_Rtin_Block_Acc (Rti), Ctxt, Indent); - when Ghdl_Rtik_If_Generate => + when Ghdl_Rtik_If_Generate + | Ghdl_Rtik_Case_Generate => Disp_Block (To_Ghdl_Rtin_Block_Acc (Rti), Ctxt, Indent); when Ghdl_Rtik_For_Generate => Disp_For_Generate (To_Ghdl_Rtin_Generate_Acc (Rti), Ctxt, Indent); |