Changeset 5a3ae8 in git for libpolys/polys/monomials/p_polys.h

Timestamp:

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

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

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/monomials/p_polys.h (modified) (1 diff)

libpolys/polys/monomials/p_polys.h

@@ -330 +330 @@
 
 // sets component of poly a to i, returns length of a
-static inline   void p_SetCompP(poly a, int i, ring r);
+static inline   void p_SetCompP(poly a, 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
+  }
+}
+
 static inline   void p_SetCompP(poly a, 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 maximal column number in the modul element a (or 0)