Changeset ecededc in git

Timestamp:

Feb 7, 2008, 2:56:44 PM (15 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

093f30ed98c16ff1ec739d588efdfea696a6f4b6

Parents:

8a0aa21c22b9105b255d6aac7f0e8cb65969aa8a

Message:

*** empty log message ***


git-svn-id: file:///usr/local/Singular/svn/trunk@10572 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• kernel/kutil.cc (modified) (2 diffs)

kernel/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.81 2008-02-07 13:43:54 wienand Exp $ */
+/* $Id: kutil.cc,v 1.82 2008-02-07 13:56:44 wienand Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -2642 +2642 @@
 {
   number gcd;
+  bool go = false;
   if (nDivBy((number) 0, pGetCoeff(h)))
+  {
     gcd = nIntDiv((number) 0, pGetCoeff(h));
+    go = true;
+  }
   else
     gcd = nGcd((number) 0, pGetCoeff(h), strat->tailRing);
-  if (!nIsOne(gcd))
+  if (go || !nIsOne(gcd))
   {
     poly p = h->next;
-    number tmp = gcd;
-    gcd = nIntDiv(0, gcd);
-    nDelete(&tmp);
+    if (!go)
+    {
+      number tmp = gcd;
+      gcd = nIntDiv(0, gcd);
+      nDelete(&tmp);
+    }
     p = pp_Mult_nn(p, gcd, strat->tailRing);
     nDelete(&gcd);