From 57bd9ab4cb8b64fb320109cee94410fded6b43e3 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 30 Sep 2016 20:27:28 +0200 Subject: Instance_Path: handle nested packages and package instantiation. --- src/vhdl/evaluation.adb | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb index 24a365ee9..06b8b5537 100644 --- a/src/vhdl/evaluation.adb +++ b/src/vhdl/evaluation.adb @@ -3154,10 +3154,15 @@ package body Evaluation is Path_Add_Name (El); Path_Add (":"); when Iir_Kind_Package_Declaration - | Iir_Kind_Package_Body => - Path_Add_Element - (Get_Library (Get_Design_File (Get_Design_Unit (El))), - Is_Instance); + | Iir_Kind_Package_Body + | Iir_Kind_Package_Instantiation_Declaration => + if Is_Nested_Package (El) then + Path_Add_Element (Get_Parent (El), Is_Instance); + else + Path_Add_Element + (Get_Library (Get_Design_File (Get_Design_Unit (El))), + Is_Instance); + end if; Path_Add_Name (El); Path_Add (":"); when Iir_Kind_Entity_Declaration => -- cgit v1.2.3