Changeset 0188fa in git for kernel/kstd2.cc

Timestamp:

Oct 17, 2005, 3:42:48 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

195f96215e3e17711e649a2202a3543c7da5941b

Parents:

6bcdc538f3a2a3a6959729eb745a2f09e043715f

Message:

*hannes: some lazy red stuf


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

File:

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

kernel/kstd2.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd2.cc,v 1.2 2005-02-17 09:42:20 Singular Exp $ */
+/* $Id: kstd2.cc,v 1.3 2005-10-17 13:42:48 Singular Exp $ */
 /*
 *  ABSTRACT -  Kernel: alg. of Buchberger
@@ -120 +120 @@
 #endif
   int j;
+  int pass = 0;
   loop
   {
@@ -149 +150 @@
 #endif
       return 0;
+    }
+    if (!K_TEST_OPT_REDTHROUGH &&
+        (strat->Ll >= 0) && (pass > strat->LazyPass))
+    {
+      h->SetLmCurrRing();
+      int at = strat->posInL(strat->L,strat->Ll,h,strat);
+      if (at <= strat->Ll)
+      {
+#ifdef KDEBUG
+        if (TEST_OPT_DEBUG) Print(" ->L[%d]\n",at);
+#endif
+        enterL(&strat->L,&strat->Ll,&strat->Lmax,*h,at);
+        h->Clear();
+        return -1;
+      }
     }
   }
@@ -210 +226 @@
     {
       h->SetLmCurrRing();
-      at = posInL11(strat->L,strat->Ll,h,strat);
+      at = strat->posInL(strat->L,strat->Ll,h,strat);
       if (at <= strat->Ll)
       {
+#if 0
         if (kFindDivisibleByInS(strat->S, strat->sevS, strat->sl, h) < 0)
           return 1;
+#endif
 #ifdef KDEBUG
         if (TEST_OPT_DEBUG) Print(" ->L[%d]\n",at);