diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-02-06 08:03:20 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-02-07 05:33:00 +0100 |
| commit | 2a32833efab2fbe065a9a4298e181ac2fb117833 (patch) | |
| tree | 3ca99f32224225b0203b1702aea90c1f4fd613b7 /src/vhdl/translate | |
| parent | b324bb655714e50832009b99987f37cb87b15902 (diff) | |
| download | ghdl-2a32833efab2fbe065a9a4298e181ac2fb117833.tar.gz ghdl-2a32833efab2fbe065a9a4298e181ac2fb117833.tar.bz2 ghdl-2a32833efab2fbe065a9a4298e181ac2fb117833.zip | |
vhdl: fix uvvm failure in scoreboard testbench.
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 2 | ||||
| -rw-r--r-- | src/vhdl/translate/trans-chap4.adb | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index e1770ad90..01703b842 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -1552,7 +1552,7 @@ package body Trans.Chap2 is -- Generate code for the body. if Global_Storage /= O_Storage_External then declare - Bod : constant Iir := Get_Package_Body (Inst); + Bod : constant Iir := Get_Instance_Package_Body (Inst); begin if Is_Valid (Bod) then Translate_Package_Body (Bod); diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb index c7c806b34..11c5f1a8c 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -2522,7 +2522,7 @@ package body Trans.Chap4 is (Get_Uninstantiated_Package_Decl (El)) then declare - Bod : constant Iir := Get_Package_Body (El); + Bod : constant Iir := Get_Instance_Package_Body (El); Mark : Id_Mark_Type; begin Push_Identifier_Prefix (Mark, Get_Identifier (El)); |