From f232983f1ec699d1c5c84045614c3a4d30098f9a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 30 Aug 2019 04:41:14 +0200
Subject: synth: fix type elaboration of interfaces.

---
 src/synth/synth-stmts.adb | 2 --
 1 file changed, 2 deletions(-)

(limited to 'src')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index eb8254756..c36400e91 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -1019,8 +1019,6 @@ package body Synth.Stmts is
       while Is_Valid (Assoc) loop
          Inter := Get_Association_Interface (Assoc, Assoc_Inter);
 
-         Synth_Declaration_Type (Subprg_Inst, Inter);
-
          case Iir_Parameter_Modes (Get_Mode (Inter)) is
             when Iir_In_Mode =>
                case Get_Kind (Assoc) is
-- 
cgit v1.2.3