From: Viljar Indus <indus@adacore.com>
Date: Thu, 4 Jun 2026 12:07:08 +0000 (+0300)
Subject: ada: Apply -gnatw.j warning switch correctly in a message
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=cdcd73d85940d1554a882efeb3331edaecbb411c;p=thirdparty%2Fgcc.git

ada: Apply -gnatw.j warning switch correctly in a message

The error message here was using both ?.*? and ? warning
inseriton characters where the latter would override the first.

gcc/ada/ChangeLog:

	* sem_disp.adb (Warn_On_Late_Primitive_After_Private_Extension):
	apply warning character correctly.
---

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