From a17d3d80a095bf4e9daa8815aeca42af0fcc5fd5 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 11 Jan 2015 06:16:30 +0100
Subject: Fix ticket #29: add instance label in created symbols name.

---
 src/vhdl/translate/trans-chap9.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb
index b62b12f93..1af96bccf 100644
--- a/src/vhdl/translate/trans-chap9.adb
+++ b/src/vhdl/translate/trans-chap9.adb
@@ -154,11 +154,12 @@ package body Trans.Chap9 is
       Info      : Block_Info_Acc;
       Comp_Info : Comp_Info_Acc;
 
-      Mark2                : Id_Mark_Type;
+      Mark, Mark2 : Id_Mark_Type;
       Assoc, Conv, In_Type : Iir;
       Has_Conv_Record      : Boolean := False;
    begin
       Info := Add_Info (Inst, Kind_Block);
+      Push_Identifier_Prefix (Mark, Get_Label (Inst));
 
       if Is_Component_Instantiation (Inst) then
          --  Via a component declaration.
@@ -214,6 +215,7 @@ package body Trans.Chap9 is
             "__CONVS"),
             Get_Scope_Type (Info.Block_Scope));
       end if;
+      Pop_Identifier_Prefix (Mark);
    end Translate_Component_Instantiation_Statement;
 
    procedure Translate_Process_Declarations (Proc : Iir)
-- 
cgit v1.2.3