From d37e2bd3acb591c06c3c3a3ad7dd99b712acda5d Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 4 Jan 2023 19:46:28 +0100 Subject: vhdl-errors(disp_node): fix a crash on protected type body --- src/vhdl/vhdl-errors.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/vhdl') 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 => -- cgit v1.2.3