From: Richard Kreckel <kreckel@ginac.de>
Date: Fri, 18 Jun 2004 21:36:12 +0000 (+0000)
Subject:         * rational/transcendental/cl_RA_logp.cc: fix bug where base is
X-Git-Tag: cln_1-1-8~12
X-Git-Url: https://www.ginac.de/CLN/cln.git//cln.git?a=commitdiff_plain;h=00a938019a0244fb3e646d85664ad3dd339718f6;p=cln.git

    * rational/transcendental/cl_RA_logp.cc: fix bug where base is
        reciprocal of an integer.
---

diff --git a/ChangeLog b/ChangeLog
index 33c61f8..cf4e1c9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-18  Richard B. Kreckel  <kreckel@ginac.de>
+
+	* rational/transcendental/cl_RA_logp.cc: fix bug where base is
+	reciprocal of an integer.
+
 2004-06-10  Richard B. Kreckel  <kreckel@ginac.de>
 
 	* examples/perfnum.cc: update to presumed 41st Mersenne prime.
diff --git a/src/rational/transcendental/cl_RA_logp.cc b/src/rational/transcendental/cl_RA_logp.cc
index 161cbe3..326ec99 100644
--- a/src/rational/transcendental/cl_RA_logp.cc
+++ b/src/rational/transcendental/cl_RA_logp.cc
@@ -50,7 +50,7 @@ cl_boolean logp (const cl_RA& a, const cl_RA& b, cl_RA* pl)
 				return cl_false;
 			// a1=1
 			var cl_RA l;
-			if (logp(a2,b,pl)) {
+			if (logp(a2,b,&l)) {
 				*pl = -l; return cl_true;
 			} else
 				return cl_false;