Changeset e48172 in git for libpolys

Timestamp:

Sep 9, 2011, 4:04:39 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

1db880fcd4839a96f69bdde0fc3337c25fd0d29d

Parents:

2fce0e72bb8742c39ab721c3ed1e0d384db1ea25

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-09-09 16:04:39+02:00

git-committer:

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

Message:

FIX: reenabled/fixed p_SimpleContent (for the use in Singular/janet)

Location:

libpolys/polys/monomials

Files:

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

libpolys/polys/monomials/p_polys.cc

@@ -2132 +2132 @@
   }
 }
-#if 0 // currently not used
-void p_SimpleContent(poly ph,int smax, const ring r)
+
+// Not yet?
+#if 1 // currently only used by Singular/janet
+void p_SimpleContent(poly ph, int smax, const ring r)
 {
   if(TEST_OPT_CONTENTSB) return;
@@ -2139 +2141 @@
   if (pNext(ph)==NULL)
   {
-    p_SetCoeff(ph,n_Init(1,r_cf),r);
+    p_SetCoeff(ph,n_Init(1,r->cf),r);
     return;
   }
@@ -2147 +2149 @@
   }
   number d=p_InitContent(ph,r);
-  if (nlSize(d,r->cf)<=smax)
+  if (n_Size(d,r->cf)<=smax)
   {
     //if (TEST_OPT_PROT) PrintS("G");
     return;
   }
+
+   
   poly p=ph;
   number h=d;

libpolys/polys/monomials/p_polys.h

@@ -226 +226 @@
 
 void      p_Content(poly p, const ring r);
+#if 1 
+// currently only used by Singular/janet
 void      p_SimpleContent(poly p, int s, const ring r);
+#endif
 
 poly      p_Cleardenom(poly p, const ring r);