Changeset 485b5d in git for kernel/kstd1.cc

Timestamp:

Jan 5, 2007, 6:59:32 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

849d991f15c978cea3f9a37140fa300f3e79cc9d

Parents:

ac08b88397becad438f4d926a0651856d732c2a0

Message:

*hannes: pLength, syzComp


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

File:

• kernel/kstd1.cc (modified) (3 diffs)

kernel/kstd1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd1.cc,v 1.16 2007-01-04 10:42:45 Singular Exp $ */
+/* $Id: kstd1.cc,v 1.17 2007-01-05 17:59:32 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -90 +90 @@
 static void kOptimizeLDeg(pLDegProc ldeg, kStrategy strat)
 {
-  if (strat->ak == 0 && !rIsSyzIndexRing(currRing))
+//  if (strat->ak == 0 && !rIsSyzIndexRing(currRing))
     strat->length_pLength = TRUE;
-  else
-    strat->length_pLength = FALSE;
-
-  if ((ldeg == pLDeg0c && !rIsSyzIndexRing(currRing)) ||
+//  else
+//    strat->length_pLength = FALSE;
+
+  if ((ldeg == pLDeg0c /*&& !rIsSyzIndexRing(currRing)*/) ||
       (ldeg == pLDeg0 && strat->ak == 0))
   {
@@ -337 +337 @@
   }
   h->SetShortExpVector();
-  while (1)
+  loop
   {
     j = kFindDivisibleByInT(strat->T, strat->sevT, strat->tl, h);