From: Christian Bauer <Christian.Bauer@uni-mainz.de>
Date: Mon, 31 Jul 2000 21:09:44 +0000 (+0000)
Subject: - I'm fired. Fixed a really stupid bug in sr_gcd() which called
X-Git-Tag: release_0-6-4~8
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=76566fa9df528ae29a1be53ac7388f2d087d6db4

- I'm fired. Fixed a really stupid bug in sr_gcd() which called
  divide_in_z(r, foo) with "var+1" as its last parameter, while the main
  variable x=*var usually appears in r. This should never have worked...
---

diff --git a/ginac/normal.cpp b/ginac/normal.cpp
index a15ec62d..9cc65cad 100644
--- a/ginac/normal.cpp
+++ b/ginac/normal.cpp
@@ -1140,7 +1140,7 @@ static ex sr_gcd(const ex &a, const ex &b, sym_desc_vec::const_iterator var)
         c = d;
         cdeg = ddeg;
 //std::clog << " dividing...\n";
-        if (!divide_in_z(r, ri * pow(psi, delta), d, var+1))
+        if (!divide_in_z(r, ri * pow(psi, delta), d, var))
             throw(std::runtime_error("invalid expression in sr_gcd(), division failed"));
         ddeg = d.degree(x);
         if (ddeg == 0) {