diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-12-07 05:38:17 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-12-07 05:38:17 +0100 |
| commit | 1a3509f18205c60beef329e806a639faf286c32a (patch) | |
| tree | a7dbaacdd24f9d203a7b143b5b3b65bdd995a08b /src/vhdl/simulate | |
| parent | 15f7bb4666a446f6cd6bc3fd9cc3dab27747cf15 (diff) | |
| download | ghdl-1a3509f18205c60beef329e806a639faf286c32a.tar.gz ghdl-1a3509f18205c60beef329e806a639faf286c32a.tar.bz2 ghdl-1a3509f18205c60beef329e806a639faf286c32a.zip | |
simul: handle interface type.
Diffstat (limited to 'src/vhdl/simulate')
| -rw-r--r-- | src/vhdl/simulate/simul-annotations.adb | 3 | ||||
| -rw-r--r-- | src/vhdl/simulate/simul-elaboration.adb | 6 |
2 files changed, 6 insertions, 3 deletions
diff --git a/src/vhdl/simulate/simul-annotations.adb b/src/vhdl/simulate/simul-annotations.adb index 879ca0470..920501744 100644 --- a/src/vhdl/simulate/simul-annotations.adb +++ b/src/vhdl/simulate/simul-annotations.adb @@ -460,7 +460,8 @@ package body Simul.Annotations is Create_Object_Info (Block_Info, Decl); when Iir_Kind_Interface_Package_Declaration => Annotate_Interface_Package_Declaration (Block_Info, Decl); - when Iir_Kinds_Interface_Subprogram_Declaration => + when Iir_Kinds_Interface_Subprogram_Declaration + | Iir_Kind_Interface_Type_Declaration => -- Macro-expanded null; when others => diff --git a/src/vhdl/simulate/simul-elaboration.adb b/src/vhdl/simulate/simul-elaboration.adb index 52024833b..21ec74a19 100644 --- a/src/vhdl/simulate/simul-elaboration.adb +++ b/src/vhdl/simulate/simul-elaboration.adb @@ -1077,7 +1077,8 @@ package body Simul.Elaboration is -- to determine the value of the constant. when Iir_Kind_Interface_Package_Declaration => Create_Object (Instance, Get_Info (Decl).Pkg_Slot); - when Iir_Kinds_Interface_Subprogram_Declaration => + when Iir_Kinds_Interface_Subprogram_Declaration + | Iir_Kind_Interface_Type_Declaration => -- Macro-expanded. null; when others => @@ -1179,7 +1180,8 @@ package body Simul.Elaboration is end; goto Continue; - when Iir_Kind_Association_Element_Subprogram => + when Iir_Kind_Association_Element_Subprogram + | Iir_Kind_Association_Element_Type => goto Continue; when others => Error_Kind ("elaborate_generic_map_aspect", Assoc); |