Changeset 5a3ae8 in git for libpolys/polys/pInline0.h

Timestamp:

Mar 23, 2011, 3:23:26 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')

Children:

a22a8227b35ff5ff3ca67bc9be266ae7f0f60380

Parents:

e0d8d1b3734f485420a004dfc86eb0b5c5cc62e9

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-03-23 15:23:26+01:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:04:10+01:00

Message:

p_SetCompP -> p_polys.h

File:

• libpolys/polys/pInline0.h (modified) (1 diff)

libpolys/polys/pInline0.h

@@ -20 +20 @@
 #include <polys/monomials/p_polys.h>
 #include <polys/monomials/ring.h>
-
-PINLINE0 void p_SetCompP(poly p, int i, ring r)
-{
-  if (p != NULL)
-  {
-#ifdef PDEBUG
-    poly q = p;
-    int l = 0;
-#endif
-
-    if (rOrd_SetCompRequiresSetm(r))
-    {
-      do
-      {
-        p_SetComp(p, i, r);
-        p_SetmComp(p, r);
-#ifdef PDEBUG
-        l++;
-#endif
-        pIter(p);
-      }
-      while (p != NULL);
-    }
-    else
-    {
-      do
-      {
-        p_SetComp(p, i, r);
-#ifdef PDEBUG
-        l++;
-#endif
-        pIter(p);
-      }
-      while(p != NULL);
-    }
-#ifdef PDEBUG
-    p_Test(q, r);
-    assume(l == pLength(q));
-#endif
-  }
-}
-
-PINLINE0 void p_SetCompP(poly p, int i, ring lmRing, ring tailRing)
-{
-  if (p != NULL)
-  {
-    p_SetComp(p, i, lmRing);
-    p_SetmComp(p, lmRing);
-    p_SetCompP(pNext(p), i, tailRing);
-  }
-}
 
 // returns minimal column number in the modul element a (or 0)