cope with partial overlap
craig@jcb-sc.com
craig@jcb-sc.com
Mon May 3 08:39:00 GMT 1999
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 ) );
}
More information about the Gcc-patches
mailing list