Fix ICE involving -fno-f2c and COMPLEX intrinsic invocation
craig@jcb-sc.com
craig@jcb-sc.com
Mon Jun 28 18:47:00 GMT 1999
Committed to mainline.
tq vm, (burley)
Mon Jun 28 10:43:11 1999 Craig Burley <craig@jcb-sc.com>
* com.c (ffecom_prepare_expr_): A COMPLEX intrinsic needs
a temp even if -fno-f2c.
* version.c: Bump version.
*** g77-e/gcc/f/com.c.~1~ Wed Jun 9 13:06:43 1999
--- g77-e/gcc/f/com.c Mon Jun 28 10:42:34 1999
*************** ffecom_prepare_expr_ (ffebld expr, ffebl
*** 13069,13073 ****
s = ffebld_symter (ffebld_left (expr));
if (ffesymbol_where (s) == FFEINFO_whereCONSTANT
! || ! ffesymbol_is_f2c (s))
break;
}
--- 13069,13076 ----
s = ffebld_symter (ffebld_left (expr));
if (ffesymbol_where (s) == FFEINFO_whereCONSTANT
! || (ffesymbol_where (s) != FFEINFO_whereINTRINSIC
! && ! ffesymbol_is_f2c (s))
! || (ffesymbol_where (s) == FFEINFO_whereINTRINSIC
! && ! ffe_is_f2c_library ()))
break;
}
*** g77-e/gcc/f/version.c.~1~ Wed Jun 9 13:08:15 1999
--- g77-e/gcc/f/version.c Mon Jun 28 10:43:08 1999
***************
*** 1 ****
! const char *ffe_version_string = "0.5.25 19990526 (prerelease)";
--- 1 ----
! const char *ffe_version_string = "0.5.25 19990628 (prerelease)";
More information about the Gcc-patches
mailing list