Mon Jun 15 22:21:57 1998 Craig Burley <burley@gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / f / intrin.c

diff --git a/gcc/f/intrin.c b/gcc/f/intrin.c
index 80f4dac..6e27d21 100644 (file)
--- 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;
        }