From: Ghjuvan Lacambre <lacambre@adacore.com>
Date: Tue, 26 Apr 2022 07:25:52 +0000 (+0200)
Subject: [Ada] Fix Warn_On_Late_Primitives messages not being properly tagged
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f925b56959d8479d7d5e072d1371b6b02870f5c8;p=platform%2Fupstream%2Fgcc.git

[Ada] Fix Warn_On_Late_Primitives messages not being properly tagged

This caused tools ingesting GNAT's output to mislabel these messages.

gcc/ada/

	* sem_disp.adb (Warn_On_Late_Primitive_After_Private_Extension):
	Fix insertion character.
---

diff --git a/gcc/ada/sem_disp.adb b/gcc/ada/sem_disp.adb
index 0372ff8..3e75a47 100644
--- a/gcc/ada/sem_disp.adb
+++ b/gcc/ada/sem_disp.adb
@@ -1207,7 +1207,7 @@ package body Sem_Disp is
                   Error_Msg_Name_2 := Chars (E);
                   Error_Msg_Sloc := Sloc (E);
                   Error_Msg_N
-                    ("?j?primitive of type % defined after private extension "
+                    ("?.j?primitive of type % defined after private extension "
                      & "% #?", Prim);
                   Error_Msg_Name_1 := Chars (Prim);
                   Error_Msg_Name_2 := Chars (E);