* update_web_docs (PREPROCESS): Rename to WWWPREPROCESS.

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

diff --git a/gcc/f/intrin.c b/gcc/f/intrin.c
index d59458c..0bc6d0e 100644 (file)
--- a/gcc/f/intrin.c
+++ b/gcc/f/intrin.c
@@ -1,5 +1,5 @@
 /* intrin.c -- Recognize references to intrinsics
-   Copyright (C) 1995-1998 Free Software Foundation, Inc.
+   Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
    Contributed by James Craig Burley.
 
 This file is part of GNU Fortran.
@@ -1165,9 +1165,9 @@ ffeintrin_check_any_ (ffebld arglist)
 static int
 ffeintrin_cmp_name_ (const void *name, const void *intrinsic)
 {
-  const char *uc = ((struct _ffeintrin_name_ *) intrinsic)->name_uc;
-  const char *lc = ((struct _ffeintrin_name_ *) intrinsic)->name_lc;
-  const char *ic = ((struct _ffeintrin_name_ *) intrinsic)->name_ic;
+  const char *uc = ((const struct _ffeintrin_name_ *) intrinsic)->name_uc;
+  const char *lc = ((const struct _ffeintrin_name_ *) intrinsic)->name_lc;
+  const char *ic = ((const struct _ffeintrin_name_ *) intrinsic)->name_ic;
 
   return ffesrc_strcmp_2c (ffe_case_intrin (), name, uc, lc, ic);
 }
@@ -1581,10 +1581,6 @@ ffeintrin_init_0 ()
       p3 = ffeintrin_names_[i].name_ic;
       for (; *p1 != '\0' && *p2 != '\0' && *p3 != '\0'; ++p1, ++p2, ++p3)
        {
-         if (! IN_CTYPE_DOMAIN (*p1)
-             || ! IN_CTYPE_DOMAIN (*p2)
-             || ! IN_CTYPE_DOMAIN (*p3))
-           break;
          if ((ISDIGIT (*p1) || (*p1 == '_')) && (*p1 == *p2) && (*p1 == *p3))
            continue;
          if (! ISUPPER ((unsigned char)*p1) || ! ISLOWER ((unsigned char)*p2)