diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-09-26 20:40:24 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-09-27 02:27:51 +0200 |
commit | f44b3c78755e01a9bd7fd9b639a08711b7c52660 (patch) | |
tree | c3bd192c03ce9d5403288c330e21e8c7811a08a9 /src/vhdl/translate/trans-chap4.adb | |
parent | 080c7dd9329aa90d4d797f638bb34312487cd496 (diff) | |
download | ghdl-f44b3c78755e01a9bd7fd9b639a08711b7c52660.tar.gz ghdl-f44b3c78755e01a9bd7fd9b639a08711b7c52660.tar.bz2 ghdl-f44b3c78755e01a9bd7fd9b639a08711b7c52660.zip |
vhdl08: more support for interface subprograms.
Diffstat (limited to 'src/vhdl/translate/trans-chap4.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap4.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb index ca0bff60b..fa1a09843 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -1631,7 +1631,8 @@ package body Trans.Chap4 is Create_Object (Decl); when Iir_Kind_Interface_Package_Declaration => Create_Package_Interface (Decl); - when Iir_Kind_Interface_Type_Declaration => + when Iir_Kind_Interface_Type_Declaration + | Iir_Kinds_Interface_Subprogram_Declaration => null; when others => Error_Kind ("translate_generic_chain", Decl); |