diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/sem.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb index 10e5d2bc8..a1bc4dc04 100644 --- a/src/vhdl/sem.adb +++ b/src/vhdl/sem.adb @@ -2768,7 +2768,9 @@ package body Sem is if Get_Need_Body (Pkg) then Bod := Libraries.Load_Secondary_Unit (Get_Design_Unit (Pkg), Null_Identifier, Decl); - if Bod /= Null_Iir then + if Is_Null (Bod) then + Error_Msg_Sem (+Decl, "cannot find package body of %n", +Pkg); + else Add_Dependence (Bod); end if; end if; |