https://gcc.gnu.org/g:45e93925beaf67ba99c67f78bd9771cacd316853
commit r15-9411-g45e93925beaf67ba99c67f78bd9771cacd316853
Author: Rainer Orth <r...@cebitec.uni-bielefeld.de>
Date: Sun Apr 13 12:46:31 2025 +0200
libgcobol: Use strchr instead of index
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 <strings.h>. 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 <r...@cebitec.uni-bielefeld.de>
libgcobol:
* valconv.cc (__gg__string_to_numeric_edited): Use strchr instead
of index.
Diff:
---
libgcobol/valconv.cc | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/libgcobol/valconv.cc b/libgcobol/valconv.cc
index 33d9a0dd1ffd..7e5830156c14 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 )
{
