This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
cope with partial overlap
- To: egcs-patches at egcs dot cygnus dot com
- Subject: cope with partial overlap
- From: craig at jcb-sc dot com
- Date: 3 May 1999 15:34:30 -0000
- Cc: craig at jcb-sc dot com
Committed.
tq vm, (burley)
Mon May 3 11:21:35 1999 Craig Burley <craig@jcb-sc.com>
* libF77/c_log.c: Cope with partial overlap a la z_log.c.
(Change likely to be made to netlib version shortly.)
*** g77-e/libf2c/libF77/c_log.c.~1~ Mon May 3 10:52:33 1999
--- g77-e/libf2c/libF77/c_log.c Mon May 3 11:21:26 1999
*************** void c_log(complex *r, complex *z)
*** 12,17 ****
#endif
{
! double zi;
! r->i = atan2(zi = z->i, z->r);
! r->r = log( f__cabs(z->r, zi) );
}
--- 12,17 ----
#endif
{
! double zi = z->i, zr = z->r;
! r->i = atan2(zi, zr);
! r->r = log( f__cabs( zr, zi ) );
}