canon: do not set formal of association by position.

1 files changed, 13 insertions, 1 deletions

diff --git a/src/vhdl/translate/trans-chap1.adb b/src/vhdl/translate/trans-chap1.adb
index 4c5083ef6..a84442df4 100644
--- a/src/vhdl/translate/trans-chap1.adb
+++ b/src/vhdl/translate/trans-chap1.adb
@@ -392,6 +392,10 @@ package body Trans.Chap1 is
       end if;
 
       Entity_Aspect := Get_Entity_Aspect (Binding);
+      if Get_Kind (Entity_Aspect) = Iir_Kind_Entity_Aspect_Open then
+         --  Unbound component.
+         return;
+      end if;
 
       Comp := Get_Named_Entity (Get_Component_Name (Cfg));
       Comp_Info := Get_Info (Comp);
@@ -530,13 +534,21 @@ package body Trans.Chap1 is
    procedure Translate_Component_Configuration_Call
      (Cfg : Iir; Base_Block : Iir; Block_Info : Block_Info_Acc)
    is
+      Binding : constant Iir := Get_Binding_Indication (Cfg);
+      Aspect : Iir;
       Cfg_Info  : Config_Info_Acc;
       Base_Info : Block_Info_Acc;
    begin
-      if Get_Binding_Indication (Cfg) = Null_Iir then
+      if Is_Null (Binding) then
          --  Unbound component configuration, nothing to do.
          return;
       end if;
+      Aspect := Get_Entity_Aspect (Binding);
+      if Is_Null (Aspect)
+        or else Get_Kind (Aspect) = Iir_Kind_Entity_Aspect_Open
+      then
+         return;
+      end if;
 
       Cfg_Info := Get_Info (Cfg);
       Base_Info := Get_Info (Base_Block);