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_tree.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_tree.adb')
| -rw-r--r-- | src/grt/grt-disp_tree.adb | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/grt/grt-disp_tree.adb b/src/grt/grt-disp_tree.adb index 8ff87eebb..ce2144445 100644 --- a/src/grt/grt-disp_tree.adb +++ b/src/grt/grt-disp_tree.adb @@ -61,6 +61,7 @@ package body Grt.Disp_Tree is | Ghdl_Rtik_Block | Ghdl_Rtik_For_Generate | Ghdl_Rtik_If_Generate + | Ghdl_Rtik_Case_Generate | Ghdl_Rtik_Instance => return; when Ghdl_Rtik_Signal @@ -88,7 +89,8 @@ package body Grt.Disp_Tree is | Ghdl_Rtik_Process | Ghdl_Rtik_Architecture | Ghdl_Rtik_Block - | Ghdl_Rtik_If_Generate => + | Ghdl_Rtik_If_Generate + | Ghdl_Rtik_Case_Generate => declare Blk : constant Ghdl_Rtin_Block_Acc := To_Ghdl_Rtin_Block_Acc (Rti); @@ -159,6 +161,8 @@ package body Grt.Disp_Tree is Put ("true"); end if; Put ("]"); + when Ghdl_Rtik_Case_Generate => + Put (" [case-generate]"); when Ghdl_Rtik_Signal => Put (" [signal]"); when Ghdl_Rtik_Port => @@ -281,10 +285,11 @@ package body Grt.Disp_Tree is end loop; Child2 := Old_Child2; end; - when Ghdl_Rtik_If_Generate => + when Ghdl_Rtik_If_Generate + | Ghdl_Rtik_Case_Generate => declare Nctxt : constant Rti_Context := - Get_If_Generate_Child (Ctxt, Child); + Get_If_Case_Generate_Child (Ctxt, Child); begin Disp_Header (Nctxt); if Nctxt.Base /= Null_Address then |