From: Justin Squirek <squirek@adacore.com>
Date: Thu, 8 Apr 2021 08:44:19 +0000 (+0200)
Subject: [Ada] Fix crash when printing error message
X-Git-Tag: upstream/12.2.0~6687
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b9713be32ba408b1d8002d92c589c6c3ed8f8831;p=platform%2Fupstream%2Fgcc.git

[Ada] Fix crash when printing error message

gcc/ada/

	* freeze.adb (Freeze_Profile): Use N's Sloc, F_type's chars.
---

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;