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 b2297a144953bd492f10a58ebc822d975301ab89..8d9bfb3985a147e826d85339c930bac6f59c78f0 100644 (file)
--- 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;
        }