Changeset 21ee92 in git

Timestamp:

Mar 22, 2011, 11:47:57 AM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

e3ab44518d53c02f93674090b44ccd375eb380d6

Parents:

2cdfc85ee62cd414bfe52f55ac26076f6c12585c

Message:

fix kbuckets.cc:nIsPseudoUnit

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

File:

• kernel/kbuckets.cc (modified) (2 diffs)

kernel/kbuckets.cc

@@ -25 +25 @@
   { if (B->coef[I]!=NULL)                                              \
     {                                                                  \
-      assume(p_IsConstant(b->Coef[i],bucket->bucket->ring));           \
+      assume(p_IsConstant(B->Coef[i],B->bucket->ring));           \
       B->buckets[I]=p_Mult_q(B->buckets[I],B->coef[I],B->bucket_ring); \
       B->coef[I]=NULL;                                                 \
     }                                                                  \
   } while(0)                                                           \
-    if (rField_is_Ring(currRing)) bucket->buckets_length[i] = pLength(bucket->buckets[i]);
+    if (rField_is_Ring(currRing)) B->buckets_length[i] = pLength(B->buckets[i]);
 #else
 #define MULTIPLY_BUCKET(B,I) do                                        \
@@ -1163 +1163 @@
   }
   //if (r->parameter!=NULL)
-  number one=n_Init(1,r);
-  if (n_Equal(n,one,r))
-  {
-    n_Delete(&one,r);
+  if (n_IsOne(n,r))
+  {
     return TRUE;
   }
-  n_Delete(&one,r);
-  number minus_one=n_Init(-1,r);
-  if (n_Equal(n,minus_one,r))
-  {
-    n_Delete(&minus_one,r);
+  if (n_IsMOne(n,r))
+  {
     return TRUE;
   }