Changeset 81b5cc in git

Timestamp:

Jan 10, 2006, 12:00:46 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2fa36c576e6a4ddbb1093b43c7f8e9835e17e52a')

Children:

4c8d611a046923236c75f86913611ba21c471d3c

Parents:

b643d7a0728056fa1fe6ed4a0ac5429d7a0e8cfe

Message:

*hannes: bug fix v2


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

File:

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

kernel/kbuckets.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kbuckets.cc,v 1.13 2006-01-10 10:17:29 Singular Exp $ */
+/* $Id: kbuckets.cc,v 1.14 2006-01-10 11:00:46 Singular Exp $ */
 
 #include "mod2.h"
@@ -780 +780 @@
       //we take ownership:
       p_SetCoeff0(bucket->coef[i],n_Init(0,r),r);
-      number add_coef=n;
+      number add_coef=n_Copy(n,r);
       number gcd=n_Gcd(add_coef, orig_coef,r);
 
@@ -788 +788 @@
         number add_coef2=n_IntDiv(add_coef, gcd,r);
         n_Delete(&orig_coef,r);
-        if (n!=add_coef) n_Delete(&n,r);
+        n_Delete(&n,r);
         n_Delete(&add_coef,r);
         orig_coef=orig_coef2;