From: Jose E. Marchesi <jose.marchesi@oracle.com>
Date: Wed, 31 Dec 2025 22:02:45 +0000 (+0100)
Subject: a68: use a68_error specific tag in diagnostic message
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1a6a3ce5acd755c1f99a5263d9fb72bd1e3116ea;p=thirdparty%2Fgcc.git

a68: use a68_error specific tag in diagnostic message

a68_error and friends still use their own upper-letter based tag
format.  We will be switching these to use the GCC standard %-based
tags for diagnostics, hopefully soonish, but in the meanwhile do not
pass a %s tag to a68_error because bad things happen.

Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>

gcc/algol68/ChangeLog

	* a68-imports.cc (a68_open_packet): Use right tag format in
	a68_error.
---

diff --git a/gcc/algol68/a68-imports.cc b/gcc/algol68/a68-imports.cc
index b2297a14495..8d9bfb3985a 100644
--- a/gcc/algol68/a68-imports.cc
+++ b/gcc/algol68/a68-imports.cc
@@ -1405,7 +1405,7 @@ a68_open_packet (const char *module)
       const char *errstr = NULL;
       if (!a68_decode_moifs (exports_data, exports_data_size, &errstr))
 	{
-	  a68_error (NO_NODE, "%s", errstr);
+	  a68_error (NO_NODE, "Y", errstr);
 	  return NULL;
 	}