From f659b3e5c01d32bf49c5e7ecdd5ef09d6cf3a8d1 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 23 Feb 2017 20:43:36 +0100 Subject: path_name/instance_name: handle protected types. Fixes #290 --- src/vhdl/evaluation.adb | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'src/vhdl') diff --git a/src/vhdl/evaluation.adb b/src/vhdl/evaluation.adb index cc64c9924..d996cace4 100644 --- a/src/vhdl/evaluation.adb +++ b/src/vhdl/evaluation.adb @@ -3796,10 +3796,19 @@ package body Evaluation is Path_Add_Element (Get_Library_Unit (El), Is_Instance); when Iir_Kind_Sensitized_Process_Statement | Iir_Kind_Process_Statement - | Iir_Kind_Block_Statement => + | Iir_Kind_Block_Statement + | Iir_Kind_Protected_Type_Body => Path_Add_Element (Get_Parent (El), Is_Instance); Path_Add_Name (El); Path_Add (":"); + when Iir_Kind_Protected_Type_Declaration => + declare + Decl : constant Iir := Get_Type_Declarator (El); + begin + Path_Add_Element (Get_Parent (Decl), Is_Instance); + Path_Add_Name (Decl); + Path_Add (":"); + end; when Iir_Kind_Function_Declaration | Iir_Kind_Procedure_Declaration => Path_Add_Element (Get_Parent (El), Is_Instance); -- cgit v1.2.3