procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

libgcobol: Use strchr instead of index

Browse source 
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  <ro@CeBiTec.Uni-Bielefeld.DE>

	libgcobol:
	* valconv.cc (__gg__string_to_numeric_edited): Use strchr instead
	of index.
This commit is contained in:
Rainer Orth 2025-04-13 12:46:31 +02:00
parent f40e39515e
commit 45e93925be
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
libgcobol/valconv.cc
View file

@ -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 )
{