diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-09-12 20:32:20 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-09-12 20:32:20 +0200 |
| commit | 1325c83731501d5bd05cd38e8c3301749eb99243 (patch) | |
| tree | 81c9bebc7ac9530b1c0a0397f62af5d3d4e932ec | |
| parent | 14396514c4822239dfdd18dd42d43c75ec9c60ae (diff) | |
| download | ghdl-1325c83731501d5bd05cd38e8c3301749eb99243.tar.gz ghdl-1325c83731501d5bd05cd38e8c3301749eb99243.tar.bz2 ghdl-1325c83731501d5bd05cd38e8c3301749eb99243.zip | |
vhdl08: add dependency on package body in package instantiation.
| -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; |