Release Branch (Jeff?) Fix -fno-f2c ICE w/COMPLEX intrinsic invocation

craig@jcb-sc.com craig@jcb-sc.com
Mon Jun 28 16:04:00 GMT 1999


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)";


More information about the Gcc-patches mailing list