Changeset 6f1610 in git for Singular/kstd2.cc

Timestamp:

Nov 17, 1999, 1:09:27 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d6b035db0aca74c2dfaa450b41b81d9ef4adfe0b

Parents:

59f0d2fa7d5c7132b992bffd6be3a4a07eeb4b9b

Message:

* ideals: fix in idModulo
* k* fix initSSpecial
* mmbt: don't track on new


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

File:

• Singular/kstd2.cc (modified) (4 diffs)

Singular/kstd2.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd2.cc,v 1.39 1999-11-15 17:20:15 obachman Exp $ */
+/* $Id: kstd2.cc,v 1.40 1999-11-17 12:09:25 obachman Exp $ */
 /*
 *  ABSTRACT -  Kernel: alg. of Buchberger
@@ -582 +582 @@
   reduc = olddeg = lrmax = 0;
   /* compute------------------------------------------------------- */
+  kTest_TS(strat);
   while (strat->Ll >= 0)
   {
@@ -617 +618 @@
               &olddeg,&reduc,strat);
 
+    kTest_TS(strat);
     /* reduction of the element choosen from L */
     red_result = strat->red(&strat->P,strat);
@@ -623 +625 @@
     if (red_result == 1)
     {
+      kTest_TS(strat);
       /* statistic */
       if (TEST_OPT_PROT) PrintS("s");