diff options
Diffstat (limited to 'src/vhdl/sem.adb')
| -rw-r--r-- | src/vhdl/sem.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb index 789cb4378..1664d67e1 100644 --- a/src/vhdl/sem.adb +++ b/src/vhdl/sem.adb @@ -998,9 +998,7 @@ package body Sem is Comp_Arch := Get_Architecture (Entity_Aspect); if Comp_Arch /= Null_Iir then - if Get_Kind (Comp_Arch) /= Iir_Kind_Simple_Name then - raise Internal_Error; - end if; + pragma Assert (Get_Kind (Comp_Arch) = Iir_Kind_Simple_Name); if Get_Identifier (Comp_Arch) /= Get_Identifier (Block_Spec) then Error_Msg_Sem @@ -1024,6 +1022,7 @@ package body Sem is (+Block_Conf, "no architecture %i", +Block_Spec); return; end if; + Add_Dependence (Design); Arch := Get_Library_Unit (Design); Set_Named_Entity (Block_Spec, Arch); Xref_Ref (Block_Spec, Arch); |