diff options
Diffstat (limited to 'src/vhdl/sem.adb')
| -rw-r--r-- | src/vhdl/sem.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb index 608bfc8..95bbe90 100644 --- a/src/vhdl/sem.adb +++ b/src/vhdl/sem.adb @@ -910,9 +910,8 @@ package body Sem is return; end if; Arch := Get_Library_Unit (Design); + Set_Named_Entity (Block_Spec, Arch); Xref_Ref (Block_Spec, Arch); - Free_Iir (Block_Spec); - Set_Block_Specification (Block_Conf, Arch); Block := Arch; Add_Dependence (Design); end; @@ -973,9 +972,8 @@ package body Sem is return; end if; Arch := Get_Library_Unit (Design); + Set_Named_Entity (Block_Spec, Arch); Xref_Ref (Block_Spec, Arch); - Free_Iir (Block_Spec); - Set_Block_Specification (Block_Conf, Arch); Block := Arch; end; |