From 45e93925beaf67ba99c67f78bd9771cacd316853 Mon Sep 17 00:00:00 2001 From: Rainer Orth Date: Sun, 13 Apr 2025 12:46:31 +0200 Subject: [PATCH] libgcobol: Use strchr instead of index MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit valconf.cc doesn't compile on Solaris: cobol/valconv.cc: In function ‘bool __gg__string_to_numeric_edited(char*, char*, int, int, const char*)’: cobol/valconv.cc:856:40: error: ‘index’ was not declared in this scope; did you mean ‘Rindex’? 856 | const char *decimal_location = index(dest, __gg__decimal_point); | ^~~~~ | Rindex On Solaris, it's only declared in . While one could get that included, it's way easier to just use strchr as is already the case in other instances. Bootstrapped without regressions on amd64-pc-solaris2.11, sparcv9-sun-solaris2.11, and x86_64-pc-linux-gnu. 2025-04-08 Rainer Orth libgcobol: * valconv.cc (__gg__string_to_numeric_edited): Use strchr instead of index. --- libgcobol/valconv.cc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/libgcobol/valconv.cc b/libgcobol/valconv.cc index 33d9a0dd1ff..7e5830156c1 100644 --- a/libgcobol/valconv.cc +++ b/libgcobol/valconv.cc @@ -853,14 +853,14 @@ got_float: } else { - const char *decimal_location = index(dest, __gg__decimal_point); + const char *decimal_location = strchr(dest, __gg__decimal_point); if( !decimal_location ) { - decimal_location = index(dest, ascii_v); + decimal_location = strchr(dest, ascii_v); } if( !decimal_location ) { - decimal_location = index(dest, ascii_V); + decimal_location = strchr(dest, ascii_V); } if( !decimal_location ) {