Changeset 722db6 in git for kernel/polys.cc

Timestamp:

Dec 2, 2010, 5:07:36 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

ffe4fd8760d02e6be0620d213646ceeb9a2c4e18

Parents:

66bff8383ec423ff4d78015828b80285a4d2888a

Message:

code cleanup: kBucketTakeOutComp, pDecrOrdTakeOutComp

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

File:

• kernel/polys.cc (modified) (1 diff)

kernel/polys.cc

@@ -465 +465 @@
   pTest(*r_p);
   pTest(*r_q);
-}
-
-void pDecrOrdTakeOutComp(poly *r_p, long comp, long order,
-                         poly *r_q, int *lq)
-{
-  spolyrec pp, qq;
-  poly p, q, p_prev;
-  int l = 0;
-
-  pNext(&pp) = *r_p;
-  p = *r_p;
-  p_prev = &pp;
-  q = &qq;
-
-#ifdef HAVE_ASSUME
-  if (p != NULL)
-  {
-    while (pNext(p) != NULL)
-    {
-      assume(pGetOrder(p) >= pGetOrder(pNext(p)));
-      pIter(p);
-    }
-  }
-  p = *r_p;
-#endif
-
-  while (p != NULL && pGetOrder(p) > order) pIter(p);
-
-  while(p != NULL && pGetOrder(p) == order)
-  {
-    while (pGetComp(p) == comp)
-    {
-      pNext(q) = p;
-      pIter(q);
-      pIter(p);
-      pSetComp(p, 0);
-      pSetmComp(p);
-      l++;
-      if (p == NULL || pGetOrder(p) != order)
-      {
-        pNext(p_prev) = p;
-        goto Finish;
-      }
-    }
-    pNext(p_prev) = p;
-    p_prev = p;
-    pIter(p);
-  }
-
-  Finish:
-  pNext(q) = NULL;
-  *r_p = pNext(&pp);
-  *r_q = pNext(&qq);
-  *lq = l;
 }