Changeset 8324cc in git for kernel/ideals.cc

Timestamp:

Feb 16, 2007, 11:50:10 AM (16 years ago)

Author:

Motsak Oleksandr <motsak@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

315ec157e2720c25cd94ca1aaa9d44b32f206ea3

Parents:

9f11abb403ae6e53eed165c175ee7a67230b969b

Message:

*motsak: corrected weights for idTestHomModule


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

File:

• kernel/ideals.cc (modified) (5 diffs)

kernel/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.38 2007-01-31 23:51:24 motsak Exp $ */
+/* $Id: ideals.cc,v 1.39 2007-02-16 10:50:10 motsak Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -2952 +2952 @@
     if (p!=NULL) cmax=si_max(cmax,(int)pMaxComp(p)+1);
   }
+  if (w != NULL)
   if (w->length()+1 < cmax)
   {
@@ -2957 +2958 @@
     return FALSE;
   }
-  pSetModDeg(w);
+
+  if(w!=NULL)
+    pSetModDeg(w);
+
   for (i=length-1;i>=0;i--)
   {
@@ -2972 +2976 @@
         {
           //pWrite(q); wrp(p); Print(" -> %d - %d\n",d,pFDeg(p,currRing));
+          if(w!=NULL)
+            pSetModDeg(NULL);
           return FALSE;
         }
@@ -2977 +2983 @@
     }
   }
-  pSetModDeg(NULL);
+  
+  if(w!=NULL)
+    pSetModDeg(NULL);
+  
   return TRUE;
 }