diff options
Diffstat (limited to 'src/vhdl/sem_scopes.adb')
| -rw-r--r-- | src/vhdl/sem_scopes.adb | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/src/vhdl/sem_scopes.adb b/src/vhdl/sem_scopes.adb index af4456b15..d30ca4380 100644 --- a/src/vhdl/sem_scopes.adb +++ b/src/vhdl/sem_scopes.adb @@ -956,10 +956,7 @@ package body Sem_Scopes is | Iir_Kind_File_Declaration | Iir_Kind_Object_Alias_Declaration | Iir_Kind_Non_Object_Alias_Declaration - | Iir_Kind_Interface_Constant_Declaration - | Iir_Kind_Interface_Signal_Declaration - | Iir_Kind_Interface_Variable_Declaration - | Iir_Kind_Interface_File_Declaration + | Iir_Kinds_Interface_Object_Declaration | Iir_Kind_Interface_Package_Declaration | Iir_Kind_Component_Declaration | Iir_Kind_Attribute_Declaration @@ -1019,6 +1016,17 @@ package body Sem_Scopes is end loop; end if; end; + when Iir_Kind_Interface_Type_Declaration => + Handle_Decl (Decl, Arg); + declare + El : Iir; + begin + El := Get_Interface_Type_Subprograms (Decl); + while El /= Null_Iir loop + Handle_Decl (El, Arg); + El := Get_Chain (El); + end loop; + end; when Iir_Kind_Use_Clause | Iir_Kind_Context_Reference => Handle_Decl (Decl, Arg); |