diff options
Diffstat (limited to 'disp_tree.adb')
| -rw-r--r-- | disp_tree.adb | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/disp_tree.adb b/disp_tree.adb index 40a949cff..a14030bf7 100644 --- a/disp_tree.adb +++ b/disp_tree.adb @@ -699,6 +699,11 @@ package body Disp_Tree is Disp_Tree_Flat (Get_Package (Tree), Ntab); Header ("declaration:"); Disp_Tree_Chain (Get_Declaration_Chain (Tree), Ntab); + when Iir_Kind_Package_Header => + Header ("generic chain:"); + Disp_Tree_Chain (Get_Generic_Chain (Tree), Ntab); + Header ("generic map aspect chain:"); + Disp_Tree_Chain (Get_Generic_Map_Aspect_Chain (Tree), Ntab); when Iir_Kind_Architecture_Declaration => if Flat_Decl then return; @@ -720,6 +725,15 @@ package body Disp_Tree is Header ("block_configuration:"); Disp_Tree (Get_Block_Configuration (Tree), Ntab, True); + when Iir_Kind_Package_Instantiation_Declaration => + if Flat_Decl then + return; + end if; + Header ("uninstantiated_name:"); + Disp_Tree_Flat (Get_Uninstantiated_Name (Tree), Ntab); + Header ("generic map aspect chain:"); + Disp_Tree_Chain (Get_Generic_Map_Aspect_Chain (Tree), Ntab); + when Iir_Kind_Entity_Aspect_Entity => Header ("entity:"); Disp_Tree_Flat (Get_Entity (Tree), Ntab); |