path_name/instance_name: handle protected types.

Fixes #290

1 files changed, 10 insertions, 1 deletions

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);