From d70fe587b2fd10eb8fca337af553a2a65aa434a8 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 15 Oct 2019 07:33:05 +0200 Subject: synth-insts: accept architecture instantiation in synth_dependencies. --- src/synth/synth-insts.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb index 6c0e65864..6315fa342 100644 --- a/src/synth/synth-insts.adb +++ b/src/synth/synth-insts.adb @@ -642,8 +642,9 @@ package body Synth.Insts is Dep_It := List_Iterate (Dep_List); while Is_Valid (Dep_It) loop Dep := Get_Element (Dep_It); - pragma Assert (Get_Kind (Dep) = Iir_Kind_Design_Unit); - if not Get_Elab_Flag (Dep) then + if Get_Kind (Dep) = Iir_Kind_Design_Unit + and then not Get_Elab_Flag (Dep) + then Set_Elab_Flag (Dep, True); Synth_Dependencies (Parent_Inst, Dep); Dep_Unit := Get_Library_Unit (Dep); -- cgit v1.2.3