Changeset 37318d in git for kernel/polys.cc

Timestamp:

May 19, 2009, 10:45:16 AM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c5facdfddea2addfd91babd8b9019161dea4b695')

Children:

95fb99a5eecd08033abe5035ddbfd82088d66a6b

Parents:

c63c70bf8a633c5a144977e7ac74077f9a6fe648

Message:

*hannes: deg for homog


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

File:

• kernel/polys.cc (modified) (4 diffs)

kernel/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.37 2009-02-23 13:29:22 Singular Exp $ */
+/* $Id: polys.cc,v 1.38 2009-05-19 08:44:30 Singular Exp $ */
 
 /*
@@ -305 +305 @@
 poly pHomogen (poly p, int varnum)
 {
+  pFDegProc deg;
+  if (pLexOrder && (currRing->order[0]==ringorder_lp))
+    deg=pTotaldegree;
+  else
+    deg=pFDeg;
+
   poly q=NULL, qn;
   int  o,ii;
@@ -315 +321 @@
       return NULL;
     }
-    o=pWTotaldegree(p);
+    o=deg(p,currRing);
     q=pNext(p);
     while (q != NULL)
     {
-      ii=pWTotaldegree(q);
+      ii=deg(q,currRing);
       if (ii>o) o=ii;
       pIter(q);
@@ -327 +333 @@
     while (q != NULL)
     {
-      ii = o-pWTotaldegree(q);
+      ii = o-deg(q,currRing);
       if (ii!=0)
       {