From b9713be32ba408b1d8002d92c589c6c3ed8f8831 Mon Sep 17 00:00:00 2001 From: Justin Squirek Date: Thu, 8 Apr 2021 10:44:19 +0200 Subject: [PATCH] [Ada] Fix crash when printing error message gcc/ada/ * freeze.adb (Freeze_Profile): Use N's Sloc, F_type's chars. --- gcc/ada/freeze.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 23b64a0..21d24cd 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -4141,9 +4141,10 @@ package body Freeze is elsif not After_Last_Declaration and then not Freezing_Library_Level_Tagged_Type then - Error_Msg_Node_1 := F_Type; - Error_Msg_N - ("type & must be fully defined before this point", N); + Error_Msg_NE + ("type & must be fully defined before this point", + N, + F_Type); end if; end if; -- 2.7.4