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

        reciprocal of an integer.

diff --git a/ChangeLog b/ChangeLog
index 33c61f864523ecff724aa95a4cfbe1b3a459fd07..cf4e1c9521ff0c14cb04c4059a4fdd338b0fd317 100644 (file)
--- 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 161cbe3f0e8d9eb1b1acd04368a80fc0406ac217..326ec99cc5d8fc042ed78f71d2c065f5554876dd 100644 (file)
--- 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;