diff options
| author | Tristan Gingold | 2015-01-11 06:16:30 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-01-11 06:16:30 +0100 |
| commit | a17d3d80a095bf4e9daa8815aeca42af0fcc5fd5 (patch) | |
| tree | 170e3d2cb87bb6aa59c3fabb144f06e0d62fc53e | |
| parent | 4dc5a4710c4b9e7559c6532fd43775d4c94192c3 (diff) | |
| download | ghdl-a17d3d80a095bf4e9daa8815aeca42af0fcc5fd5.tar.gz ghdl-a17d3d80a095bf4e9daa8815aeca42af0fcc5fd5.tar.bz2 ghdl-a17d3d80a095bf4e9daa8815aeca42af0fcc5fd5.zip | |
Fix ticket #29: add instance label in created symbols name.
| -rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index b62b12f..1af96bc 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) |