Changeset 4c001a in git for Singular/kstd2.cc

Timestamp:

Jun 4, 1997, 9:45:25 PM (27 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '6e5adcba05493683b94648c659a729c189812c77')

Children:

2206a717d905cdcfb54e169f7df11258eb0eae8b

Parents:

99be05a16bba53f0fffb47fbae6830f04636e00a

Message:

Merged fixes from 1-0-0 release


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

File:

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

Singular/kstd2.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd2.cc,v 1.3 1997-04-02 15:07:16 Singular Exp $ */
+/* $Id: kstd2.cc,v 1.4 1997-06-04 19:45:20 obachman Exp $ */
 /*
 *  ABSTRACT -  Kernel: alg. of Buchberger
@@ -284 +284 @@
         return;
       }
-      else if (strat->syzComp!=0)
-      {
-        if ((strat->syzComp>0) && (pMinComp((*h).p) > strat->syzComp))
-        {
-          //pContent((*h).p);
-          pCleardenom((*h).p);// also does a pContent
+//      else if (strat->syzComp!=0)
+//      {
+//        if ((strat->syzComp>0) && (pMinComp((*h).p) > strat->syzComp))
+//        {
+//          //pContent((*h).p);
+//          pCleardenom((*h).p);// also does a pContent
 /*
 *         (*h).length=pLength0((*h).p);
 */
-          k=strat->posInT(strat->T,strat->tl,(*h));
-          enterTBba((*h),k,strat);
-          return;
-        }
-      }
+//          k=strat->posInT(strat->T,strat->tl,(*h));
+//          enterTBba((*h),k,strat);
+//          return;
+//        }
+//      }
       /*- try to reduce the s-polynomial -*/
       j = 0;