This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Release Branch (Jeff?) Fix -fno-f2c ICE w/COMPLEX intrinsic invocation
- To: egcs-patches at egcs dot cygnus dot com
- Subject: Release Branch (Jeff?) Fix -fno-f2c ICE w/COMPLEX intrinsic invocation
- From: craig at jcb-sc dot com
- Date: 28 Jun 1999 23:02:37 -0000
- Cc: craig at jcb-sc dot com
Jeff, okay to commit this to the release branch, to fix a regression
in g77? (No need for doc patch, since it isn't fixing a bug in a
prior release.)
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)";