Changeset 2b87ac9 in git

Timestamp:

Jan 15, 2009, 11:33:24 AM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

81733986448f9a0d2629201f6509a9ea8f70fb38

Parents:

2f2bb21b64b1321056a44c8c3cd372675d55ea9b

Message:

*hannes: optim


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

File:

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

kernel/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.34 2008-07-25 14:37:55 Singular Exp $ */
+/* $Id: polys.cc,v 1.35 2009-01-15 10:33:24 Singular Exp $ */
 
 /*
@@ -465 +465 @@
 
   if (q==NULL) return NULL;
+  BOOLEAN use_setmcomp=rOrd_SetCompRequiresSetm(currRing);
   if (pGetComp(q)==k)
   {
@@ -471 +472 @@
     {
       pSetComp(q,0);
-      pSetmComp(q);
+      if (use_setmcomp) pSetmComp(q);
       qq = q;
       pIter(q);
@@ -483 +484 @@
   {
     pDecrComp(q);
-    pSetmComp(q);
+    if (use_setmcomp) pSetmComp(q);
   }
   poly pNext_q;
@@ -503 +504 @@
       pNext(qq) =NULL;
       pSetComp(qq,0);
-      pSetmComp(qq);
+      if (use_setmcomp) pSetmComp(qq);
     }
     else
@@ -511 +512 @@
       {
         pDecrComp(q);
-        pSetmComp(q);
+        if (use_setmcomp) pSetmComp(q);
       }
     }