From: Craig Burley <craig@jcb-sc.com>
Date: Mon, 3 May 1999 08:36:27 +0000 (+0000)
Subject: cope with partial overlap
X-Git-Tag: prereleases/gcc-2.95-test~661
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=336725627d41f7311c297eeb3071df024b0fa265;p=thirdparty%2Fgcc.git

cope with partial overlap

From-SVN: r26741
---

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index c74ab760ee42..7ed7ca57ee62 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,8 @@
+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.)
+
 Mon May  3 11:12:38 1999  Craig Burley  <craig@jcb-sc.com>
 
 	Update to Netlib version of 1999-05-03:
diff --git a/libf2c/libF77/c_log.c b/libf2c/libF77/c_log.c
index 6ac990ca2675..6e3df66653ba 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 ) );
 	}