Add xrefs for interface_subprograms.

2 files changed, 2 insertions, 0 deletions

diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb
index 6708355b9..f8620182c 100644
--- a/src/vhdl/sem_assocs.adb
+++ b/src/vhdl/sem_assocs.adb
@@ -1941,6 +1941,7 @@ package body Sem_Assocs is
       end case;
 
       Set_Named_Entity (Actual, Res);
+      Xrefs.Xref_Name (Actual);
       Set_Use_Flag (Res, True);
    end Sem_Association_Subprogram;
 
diff --git a/src/vhdl/sem_decls.adb b/src/vhdl/sem_decls.adb
index 9fac6d50e..8d3c15587 100644
--- a/src/vhdl/sem_decls.adb
+++ b/src/vhdl/sem_decls.adb
@@ -489,6 +489,7 @@ package body Sem_Decls is
    procedure Sem_Interface_Subprogram_Declaration (Inter : Iir) is
    begin
       Sem_Subprogram_Specification (Inter);
+      Xref_Decl (Inter);
    end Sem_Interface_Subprogram_Declaration;
 
    procedure Sem_Interface_Chain (Interface_Chain: Iir;