diff options
Diffstat (limited to 'src/vhdl/simulate/elaboration.adb')
| -rw-r--r-- | src/vhdl/simulate/elaboration.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/simulate/elaboration.adb b/src/vhdl/simulate/elaboration.adb index d3e157d..93998df 100644 --- a/src/vhdl/simulate/elaboration.adb +++ b/src/vhdl/simulate/elaboration.adb @@ -2526,7 +2526,8 @@ package body Elaboration is Conf_Unit := Get_Default_Configuration_Declaration (Unit); when Iir_Kind_Configuration_Declaration => Conf_Unit := Design; - Arch := Get_Block_Specification (Get_Block_Configuration (Unit)); + Arch := Get_Named_Entity + (Get_Block_Specification (Get_Block_Configuration (Unit))); Elaborate_Dependence (Design); when others => Error_Kind ("elaborate_design", Unit); |