diff options
Diffstat (limited to 'src/vhdl/translate/trans-rtis.adb')
| -rw-r--r-- | src/vhdl/translate/trans-rtis.adb | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-rtis.adb b/src/vhdl/translate/trans-rtis.adb index 8c06460aa..35b2e8ce8 100644 --- a/src/vhdl/translate/trans-rtis.adb +++ b/src/vhdl/translate/trans-rtis.adb @@ -2088,7 +2088,7 @@ package body Trans.Rtis is Add_Rti_Node (Info.Comp_Rti_Const); end Generate_Component_Declaration; - -- Generate RTIs only for types. + -- Generate RTIs only for types. This is needed for 'image/'value procedure Generate_Declaration_Chain_Depleted (Chain : Iir) is Decl : Iir; @@ -2148,6 +2148,9 @@ package body Trans.Rtis is when Iir_Kind_Group_Template_Declaration | Iir_Kind_Group_Declaration => null; + when Iir_Kind_Package_Declaration + | Iir_Kind_Package_Body => + null; when others => Error_Kind ("rti.generate_declaration_chain_depleted", Decl); end case; @@ -2310,6 +2313,10 @@ package body Trans.Rtis is Pop_Identifier_Prefix (Mark); end; + when Iir_Kind_Package_Instantiation_Declaration => + -- FIXME: todo + null; + when others => Error_Kind ("rti.generate_declaration_chain", Decl); end case; |