Changeset 672e05 in git

Timestamp:

May 20, 2008, 4:41:02 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

3172b40e27469d7b4d29efbb901f8c051ba4c385

Parents:

2fa632f4d8657b736d23478f2b9ef512df3e7fdb

Message:

*hannes: fix pLength


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

File:

• kernel/kstdfac.cc (modified) (4 diffs)

kernel/kstdfac.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstdfac.cc,v 1.13 2008-05-14 12:53:17 Singular Exp $ */
+/* $Id: kstdfac.cc,v 1.14 2008-05-20 14:41:02 Singular Exp $ */
 /*
 *  ABSTRACT -  Kernel: factorizing alg. of Buchberger
@@ -663 +663 @@
         {
           n->P.p = redtailBba(n->P.p,pos-1,n);
-          if (n->redTailChange) pCleardenom(n->P.p);
+          if (n->redTailChange)
+          {
+            pCleardenom(n->P.p);
+            n->P.pLength=0;
+          }
         }
         else
@@ -669 +673 @@
           pNorm(n->P.p);
           n->P.p = redtailBba(n->P.p,pos-1,n);
+          if (n->redTailChange)
+          {
+            n->P.pLength=0;
+          }
         }
         kTest_TS(n);
@@ -678 +686 @@
           PrintLn();
         }
-        n->P.pLength=0;
         enterpairs(n->P.p,n->sl,n->P.ecart,pos,n);
         enterT(n->P,n);