diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap2.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 2 |
1 files changed, 1 insertions, 1 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); |