This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: patch for fortran warning fixes ...
- To: burley at gnu dot org
- Subject: Re: patch for fortran warning fixes ...
- From: "Kaveh R. Ghazi" <ghazi at caip dot rutgers dot edu>
- Date: Mon, 12 Oct 1998 21:48:45 -0400 (EDT)
- Cc: egcs-patches at cygnus dot com
> From: Craig Burley <burley@gnu.org>
>
> > Would you like to me install it or wait until you've run your
> >tests... ?
>
> Since nothing looks evidently risky to me, and we're not talking the
> 1.1 branch, I'd say do it now.
> tq vm, (burley)
Okay I installed it, along with one more `unsigned char' nit
which I forgot to include in my original patch. (It appears below.)
--Kaveh
diff -rup egcs-CVS19981011/gcc/f/intrin.c egcs-CVS19981012/gcc/f/intrin.c
--- egcs-CVS19981011/gcc/f/intrin.c Mon Oct 12 21:24:59 1998
+++ egcs-CVS19981012/gcc/f/intrin.c Mon Oct 12 21:09:00 1998
@@ -1559,7 +1559,8 @@ ffeintrin_init_0 ()
if ((ISDIGIT (*p1) || (*p1 == '_')) && (*p1 == *p2) && (*p1 == *p3))
continue;
if (! ISUPPER ((unsigned char)*p1) || ! ISLOWER ((unsigned char)*p2)
- || (*p1 != toupper (*p2)) || ((*p3 != *p1) && (*p3 != *p2)))
+ || (*p1 != toupper ((unsigned char)*p2))
+ || ((*p3 != *p1) && (*p3 != *p2)))
break;
}
assert ((*p1 == *p2) && (*p1 == *p3) && (*p1 == '\0'));
--
Kaveh R. Ghazi Engagement Manager / Project Services
ghazi@caip.rutgers.edu Icon CMT Corp.