vhdl: clear associated_type in Sem_Generic_Association_Chain

So that it is cleared after use.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-sem.adb b/src/vhdl/vhdl-sem.adb
index 528b642a1..174f1456e 100644
--- a/src/vhdl/vhdl-sem.adb
+++ b/src/vhdl/vhdl-sem.adb
@@ -445,6 +445,12 @@ package body Vhdl.Sem is
 
       Sem_Association_Chain
         (Inter_Chain, Assoc_Chain, True, Miss, Assoc_Parent, Match);
+
+      --  Clear associated type of interface type.
+      --  Should be part of Sem_Association_Chain, but needed only for
+      --  generics.
+      Clear_Interface_Associated (Inter_Chain);
+
       Set_Generic_Map_Aspect_Chain (Assoc_Parent, Assoc_Chain);
       if Match = Not_Compatible then
          return False;