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

reciprocal of an integer.

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.

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;