From: Jens Vollinga <jensv@nikhef.nl>
Date: Thu, 3 Apr 2008 09:56:57 +0000 (+0200)
Subject: Fixed bugs found by Jianqiang Zhao.
X-Git-Tag: release_1-5-0~105
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=fb45203612dcfd2e30f6e7a43273597bcd13f026;hp=3c85fea898265651ad22baa22aa002a819e5c536

Fixed bugs found by Jianqiang Zhao.
---

diff --git a/ginac/inifcns_nstdsums.cpp b/ginac/inifcns_nstdsums.cpp
index e92e8eb2..138f5e34 100644
--- a/ginac/inifcns_nstdsums.cpp
+++ b/ginac/inifcns_nstdsums.cpp
@@ -492,6 +492,12 @@ cln::cl_N multipleLi_do_sum(const std::vector<int>& s, const std::vector<cln::cl
 			flag_accidental_zero = cln::zerop(t[k+1]);
 			t[k] = t[k] + t[k+1] * cln::expt(x[k], q+j-1-k) / cln::expt(cln::cl_I(q+j-1-k), s[k]);
 		}
+		q++;
+		t[j-1] = t[j-1] + cln::expt(x[j-1], q) / cln::expt(cln::cl_I(q),s[j-1]) * one;
+		for (int k=j-2; k>=0; k--) {
+			flag_accidental_zero = cln::zerop(t[k+1]);
+			t[k] = t[k] + t[k+1] * cln::expt(x[k], q+j-1-k) / cln::expt(cln::cl_I(q+j-1-k), s[k]);
+		}
 	} while ( (t[0] != t0buf) || flag_accidental_zero );
 
 	return t[0];
@@ -991,7 +997,7 @@ ex G_numeric(const lst& x, const lst& s, const ex& y)
 	if (x.op(x.nops()-1).is_zero()) {
 		need_trafo = true;
 	}
-	if (depth == 1 && !need_trafo) {
+	if (depth == 1 && x.nops() == 2 && !need_trafo) {
 		return -Li(x.nops(), y / x.op(x.nops()-1)).evalf();
 	}