From 035cca8c36ac485d98ca26a53c0bfec04001b8fb Mon Sep 17 00:00:00 2001 From: burley Date: Mon, 3 May 1999 08:36:27 +0000 Subject: [PATCH] cope with partial overlap git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26741 138bc75d-0d04-0410-961f-82ee72b054a4 --- libf2c/ChangeLog | 5 +++++ libf2c/libF77/c_log.c | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index c74ab760ee4..7ed7ca57ee6 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,8 @@ +Mon May 3 11:21:35 1999 Craig Burley + + * libF77/c_log.c: Cope with partial overlap a la z_log.c. + (Change likely to be made to netlib version shortly.) + Mon May 3 11:12:38 1999 Craig Burley Update to Netlib version of 1999-05-03: diff --git a/libf2c/libF77/c_log.c b/libf2c/libF77/c_log.c index 6ac990ca267..6e3df66653b 100644 --- a/libf2c/libF77/c_log.c +++ b/libf2c/libF77/c_log.c @@ -11,7 +11,7 @@ extern double f__cabs(double, double); void c_log(complex *r, complex *z) #endif { - double zi; - r->i = atan2(zi = z->i, z->r); - r->r = log( f__cabs(z->r, zi) ); + double zi = z->i, zr = z->r; + r->i = atan2(zi, zr); + r->r = log( f__cabs( zr, zi ) ); } -- 2.11.0