Changeset 9f1083 in git

Timestamp:

Jan 13, 2006, 11:56:40 AM (18 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', '2fa36c576e6a4ddbb1093b43c7f8e9835e17e52a')

Children:

4cbb61ba5014a593b9bc6569b497e9a8151bc15f

Parents:

9ce72aecbd5700bb291ae22e4875d6cd55c525ae

Message:

*bricken: hope it works with, extract content from monomial


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

File:

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

kernel/kbuckets.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kbuckets.cc,v 1.15 2006-01-12 14:12:41 bricken Exp $ */
+/* $Id: kbuckets.cc,v 1.16 2006-01-13 10:56:40 bricken Exp $ */
 
 #include "mod2.h"
@@ -253 +253 @@
        assume(pNext(lm)==NULL);
        number coef=p_GetCoeff(lm,bucket->bucket_ring);
+       //WARNING: not thread_safe
        p_SetCoeff0(lm, n_Init(1,bucket->bucket_ring), bucket->bucket_ring);
        bucket->buckets[i]=lm;
@@ -1000 +1001 @@
   l1--;
 
+  assume(l1==pLength(a1));
+  BOOLEAN backuped=FALSE;
+  number coef;
+  if(l1==1) {
+    
+    //if (rField_is_Q(bucket->bucket_ring)) {
+      //avoid this for function fields, as gcds are expensive at the moment
+      
+     
+      coef=p_GetCoeff(a1,bucket->bucket_ring);
+      lm=p_Mult_nn(lm, coef, bucket->bucket_ring);
+      p_SetCoeff0(a1, n_Init(1,bucket->bucket_ring), bucket->bucket_ring);
+      backuped=TRUE;
+      //WARNING: not thread_safe
+    //deletes coef as side effect
+    //}
+  }
+
+  
   kBucket_Minus_m_Mult_p(bucket, lm, a1, &l1, spNoether);
-
+  
+  if (backuped)
+    p_SetCoeff0(a1,coef,bucket->bucket_ring);
   p_DeleteLm(&lm, bucket->bucket_ring);
   if (reset_vec) p_SetCompP(a1, 0, bucket->bucket_ring);
@@ -1085 +1107 @@
     }
   }
+  n_Delete(&coef,r);
 }