vhdl-errors(disp_node): fix a crash on protected type body

1 files changed, 2 insertions, 1 deletions

diff --git a/src/vhdl/vhdl-errors.adb b/src/vhdl/vhdl-errors.adb
index 8410cb767..7877fd8de 100644
--- a/src/vhdl/vhdl-errors.adb
+++ b/src/vhdl/vhdl-errors.adb
@@ -334,7 +334,8 @@ package body Vhdl.Errors is
          when Iir_Kind_Protected_Type_Declaration =>
             return Disp_Type (Node, "protected type");
          when Iir_Kind_Protected_Type_Body =>
-            return Disp_Type (Node, "protected type body");
+            return Disp_Type (Get_Protected_Type_Declaration (Node),
+                              "protected type body");
          when Iir_Kind_Subtype_Definition =>
             return "subtype definition";
          when Iir_Kind_Foreign_Vector_Type_Definition =>