diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-09-30 20:29:45 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-09-30 20:29:45 +0200 |
| commit | 2171004f8c93ed6edafe3096db70e1379b820c52 (patch) | |
| tree | 1ade8f0791811cbe7ad31755e4f14ddfe05ee0dd | |
| parent | 51ec2af1a91f57a7315c528fae0e824d7965e5be (diff) | |
| download | ghdl-2171004f8c93ed6edafe3096db70e1379b820c52.tar.gz ghdl-2171004f8c93ed6edafe3096db70e1379b820c52.tar.bz2 ghdl-2171004f8c93ed6edafe3096db70e1379b820c52.zip | |
Set package prefix for nested package bodies.
| -rw-r--r-- | src/vhdl/translate/trans-chap4.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb index fa1a09843..c8e847fc3 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -2374,7 +2374,13 @@ package body Trans.Chap4 is Chap3.Translate_Protected_Type_Body_Subprograms (El); when Iir_Kind_Package_Declaration | Iir_Kind_Package_Body => - Translate_Declaration_Chain_Subprograms (El); + declare + Mark : Id_Mark_Type; + begin + Push_Identifier_Prefix (Mark, Get_Identifier (El)); + Translate_Declaration_Chain_Subprograms (El); + Pop_Identifier_Prefix (Mark); + end; when others => null; end case; |