Changeset b57694 in git for kernel/kstd2.cc

Timestamp:

Mar 29, 2007, 1:34:53 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5336341967416749d24051719fe61784a18508c7

Parents:

8992edaceaeeebdd8a538a0a3fe28f1d59f4b2a5

Message:

*hannes: completeReduce and tailRing overflow


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

File:

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

kernel/kstd2.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd2.cc,v 1.39 2007-02-07 10:49:40 Singular Exp $ */
+/* $Id: kstd2.cc,v 1.40 2007-03-29 11:34:53 Singular Exp $ */
 /*
 *  ABSTRACT -  Kernel: alg. of Buchberger
@@ -1284 +1284 @@
   }
 
-  if (TEST_OPT_REDSB) completeReduce(strat);
+  if (TEST_OPT_REDSB) 
+  {
+    completeReduce(strat); 
+    if (strat->completeReduce_retry)
+    {
+      cleanT(strat);strat->tailRing=currRing;
+      int i;
+      for(i=strat->sl;i>=0;i--) strat->S_2_R[i]=-1;
+      completeReduce(strat);
+    }
+  }
+ 
   /* release temp data-------------------------------- */
   exitBuchMora(strat);