vhdl-sem_inst: recompute subprogram hash after instantiation.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-sem_inst.adb b/src/vhdl/vhdl-sem_inst.adb
index 0611fc8f1..d920f4943 100644
--- a/src/vhdl/vhdl-sem_inst.adb
+++ b/src/vhdl/vhdl-sem_inst.adb
@@ -633,6 +633,12 @@ package body Vhdl.Sem_Inst is
          --  incomplete type
          --  attribute_value
 
+         if Get_Kind (Res) in Iir_Kinds_Subprogram_Declaration then
+            --  Recompute the hash as the interface may have
+            --  changed due to instantiation.
+            Sem_Utils.Compute_Subprogram_Hash (Res);
+         end if;
+
          return Res;
       end;
    end Instantiate_Iir;