* rational/transcendental/cl_RA_logp.cc: fix bug where base is

reciprocal of an integer.
21 years ago · 00a938019a
2 changed files with 6 additions and 1 deletions
--- a/5
+++ b/5
@ -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.
--- 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;