diff options
Diffstat (limited to 'src/synth/synth-insts.adb')
| -rw-r--r-- | src/synth/synth-insts.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/synth/synth-insts.adb b/src/synth/synth-insts.adb index cd0e664e7..da5b23b04 100644 --- a/src/synth/synth-insts.adb +++ b/src/synth/synth-insts.adb @@ -1112,12 +1112,12 @@ package body Synth.Insts is if Arch = Null_Node then Arch := Libraries.Get_Latest_Architecture (Ent); - Sub_Config := Get_Library_Unit - (Get_Default_Configuration_Declaration (Arch)); - Sub_Config := Get_Block_Configuration (Sub_Config); else - raise Internal_Error; + Arch := Get_Named_Entity (Arch); end if; + Sub_Config := Get_Library_Unit + (Get_Default_Configuration_Declaration (Arch)); + Sub_Config := Get_Block_Configuration (Sub_Config); -- Elaborate generic + map aspect for the entity instance. Sub_Inst := Make_Instance |