From: James K. Lowden <jklowden@cobolworx.com>
Date: Wed, 29 Jul 2026 20:04:13 +0000 (-0400)
Subject: cobol: Do not rely on %qs in xasprintf.
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=2369b8b1eb8a2950cc2ea11d79e1ee7abc905e15;p=thirdparty%2Fgcc.git

cobol: Do not rely on %qs in xasprintf.

gcc/cobol/ChangeLog:

	* parse_ante.h (parser_move_carefully): Use ordinary %s in message.
---

diff --git a/gcc/cobol/parse_ante.h b/gcc/cobol/parse_ante.h
index 39f33fdf3b5..49eb90b265a 100644
--- a/gcc/cobol/parse_ante.h
+++ b/gcc/cobol/parse_ante.h
@@ -3436,7 +3436,7 @@ parser_move_carefully( const char */*F*/, int /*L*/,
 
     if( is_index ) {
       if( tgt.field->type != FldIndex && src.field->type != FldIndex) {
-        auto msg = xasprintf("invalid SET %qs (%s) TO %qs (%s): not a field index",
+        auto msg = xasprintf("invalid SET %s (%s) TO %s (%s): not a field index",
                              name_of(tgt.field), cbl_field_type_name(tgt.field->type),
                              name_of(src.field), cbl_field_type_name(src.field->type));
         dialect_ok(src.loc, MfSetNumeric, msg);