[PATCH] cobol: fix cbl_filed_t symbol error generation

[yxj-github-437]

Hi, I meet that symbol '__gg__space' generated '\x7f\x7fgg\x7f\x7fspace'
in asm. I learn that _tolower to give the expected results, __isascii and
isupper must both return nonzero. So consider use the TOLOWER in safe-ctype.h.

gcc/cobol:

        * genapi.cc: replace _tolower with TOLOWER
---
 gcc/cobol/genapi.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/cobol/genapi.cc b/gcc/cobol/genapi.cc
index c8911f964..7f0a07262 100644
--- a/gcc/cobol/genapi.cc
+++ b/gcc/cobol/genapi.cc
@@ -15877,7 +15877,7 @@ psa_global(cbl_field_t *new_var)
   strcat(ach, new_var->name);
   for(size_t i=0; i<strlen(ach); i++)
     {
-    ach[i] = _tolower(ach[i]);
+    ach[i] = TOLOWER(ach[i]);
     if(ach[i] == '-')
       {
       ach[i] = '_';
@@ -15903,7 +15903,7 @@ psa_global(cbl_field_t *new_var)
   strcat(ach, new_var->name);
   for(size_t i=0; i<strlen(ach); i++)
     {
-    ach[i] = _tolower(ach[i]);
+    ach[i] = TOLOWER(ach[i]);
     if(ach[i] == '-')
       {
       ach[i] = '_';
-- 
2.43.0