Changeset f7a3f2 in git

Timestamp:

Oct 4, 2012, 8:00:57 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

9f6cc091f81a4d6c75b4696ae3e84bc53e419051

Parents:

095dee7384980b4721524a28443756f110c5faa7

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-10-04 20:00:57+02:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-10-05 18:15:04+02:00

Message:

Minor changes to p_Lcm for (module) monomials

Location:

libpolys/polys/monomials

Files:

• p_polys.cc (modified) (1 diff)
• p_polys.h (modified) (1 diff)

libpolys/polys/monomials/p_polys.cc

@@ -1483 +1483 @@
 #endif
 
-/*2
-* returns the LCM of the head terms of a and b in *m
-*/
-void p_Lcm(poly a, poly b, poly m, const ring r)
-{
-  int i;
-  for (i=rVar(r); i; i--)
-  {
+// returns the LCM of the head terms of a and b in *m
+void p_Lcm(const poly a, const poly b, poly m, const ring r)
+{
+  for (int i=rVar(r); i; --i)
     p_SetExp(m,i, si_max( p_GetExp(a,i,r), p_GetExp(b,i,r)),r);
-  }
+  
   p_SetComp(m, si_max(p_GetComp(a,r), p_GetComp(b,r)),r);
   /* Don't do a pSetm here, otherwise hres/lres chockes */

libpolys/polys/monomials/p_polys.h

@@ -1817 +1817 @@
 poly      p_DivideM(poly a, poly b, const ring r);
 poly      p_Div_nn(poly p, const number n, const ring r);
-void      p_Lcm(poly a, poly b, poly m, const ring r);
+
+// returns the LCM of the head terms of a and b in *m
+void p_Lcm(const poly a, const poly b, poly m, const ring r);
+
 poly      p_Diff(poly a, int k, const ring r);
 poly      p_DiffOp(poly a, poly b,BOOLEAN multiply, const ring r);