From 14c2ac2929a889a181cd43be40be6a364d11223f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 22 Jan 2020 08:06:30 +0100
Subject: vhdl-sem_inst: recompute subprogram hash after instantiation.

---
 src/vhdl/vhdl-sem_inst.adb | 6 ++++++
 1 file changed, 6 insertions(+)

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;
-- 
cgit v1.2.3