diff options
Diffstat (limited to 'gcc/f/intrin.c')
| -rw-r--r-- | gcc/f/intrin.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/f/intrin.c b/gcc/f/intrin.c index 80f4dac..6e27d21 100644 --- a/gcc/f/intrin.c +++ b/gcc/f/intrin.c @@ -22,7 +22,6 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA */ #include "proj.h" -#include <ctype.h> #include "intrin.h" #include "expr.h" #include "info.h" @@ -1553,11 +1552,13 @@ ffeintrin_init_0 () p3 = ffeintrin_names_[i].name_ic; for (; *p1 != '\0' && *p2 != '\0' && *p3 != '\0'; ++p1, ++p2, ++p3) { - if (!isascii (*p1) || !isascii (*p2) || !isascii (*p3)) + if (! IN_CTYPE_DOMAIN (*p1) + || ! IN_CTYPE_DOMAIN (*p2) + || ! IN_CTYPE_DOMAIN (*p3)) break; - if ((isdigit (*p1) || (*p1 == '_')) && (*p1 == *p2) && (*p1 == *p3)) + if ((ISDIGIT (*p1) || (*p1 == '_')) && (*p1 == *p2) && (*p1 == *p3)) continue; - if (!isupper (*p1) || !islower (*p2) + if (! ISUPPER (*p1) || ! ISLOWER (*p2) || (*p1 != toupper (*p2)) || ((*p3 != *p1) && (*p3 != *p2))) break; } |