From: Jens Vollinga <vollinga@thep.physik.uni-mainz.de>
Date: Wed, 4 May 2005 18:58:43 +0000 (+0000)
Subject: Fixed bug in gcd (patch from Sheplyakov Alexei).
X-Git-Tag: release_1-4-0~179
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=3bb03edcabccf707a7be170c3ec5a4ad9b38c2e6

Fixed bug in gcd (patch from Sheplyakov Alexei).
---

diff --git a/ginac/normal.cpp b/ginac/normal.cpp
index 9e9bde18..fa09e429 100644
--- a/ginac/normal.cpp
+++ b/ginac/normal.cpp
@@ -1247,11 +1247,7 @@ static ex heur_gcd(const ex &a, const ex &b, ex *ca, ex *cb, sym_desc_vec::const
 			ex dummy;
 			if (divide_in_z(p, g, ca ? *ca : dummy, var) && divide_in_z(q, g, cb ? *cb : dummy, var)) {
 				g *= gc;
-				ex lc = g.lcoeff(x);
-				if (is_exactly_a<numeric>(lc) && ex_to<numeric>(lc).is_negative())
-					return -g;
-				else
-					return g;
+				return g;
 			}
 		}