From: James K. Lowden <jklowden@cobolworx.com>
Date: Tue, 28 Jul 2026 13:51:13 +0000 (-0400)
Subject: cobol: Quell unsigned/signed warning.
X-Git-Url: http://git.ipfire.org/gitweb/index.cgi?a=commitdiff_plain;h=dfc1acffcd52d0ae0fbc155f221ea7091a2f39b9;p=thirdparty%2Fgcc.git

cobol: Quell unsigned/signed warning.

Assignment of 0x8D to char provoked warning diagnostic.  Cast to char.

gcc/cobol/ChangeLog:

	* lexio.cc (cdftext::free_form_reference_format): Assign from char(0x8D).
---

diff --git a/gcc/cobol/lexio.cc b/gcc/cobol/lexio.cc
index 39ad4e0ceff..54b8aa814bc 100644
--- a/gcc/cobol/lexio.cc
+++ b/gcc/cobol/lexio.cc
@@ -1802,7 +1802,7 @@ cdftext::free_form_reference_format( int input,
          * Use the weird input value to signify fixed format, information
          * otherwise not available and not significant to the parser.
          */
-        if( format.top().is_fixed() ) *indcol = 0x8D;
+        if( format.top().is_fixed() ) *indcol = char(0x8D);
         break;
       case '*':
       case '/':