From 2171004f8c93ed6edafe3096db70e1379b820c52 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 30 Sep 2016 20:29:45 +0200
Subject: Set package prefix for nested package bodies.

---
 src/vhdl/translate/trans-chap4.adb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src')

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;
-- 
cgit v1.2.3