Changeset 81131b7 in git for kernel/tgb.cc

Timestamp:

Feb 23, 2006, 6:31:29 AM (18 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

26914c0d08b1e801b2c1a3567b7eaccdc0780668

Parents:

4d25ef9af4258966cffeea14c796cf026bb01b59

Message:

*bricken: bug fix + enhancencement for b


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

File:

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

kernel/tgb.cc

@@ -5 +5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: tgb.cc,v 1.67 2006-02-22 13:09:35 bricken Exp $ */
+/* $Id: tgb.cc,v 1.68 2006-02-23 05:31:29 bricken Exp $ */
 /*
 * ABSTRACT: slimgb and F4 implementation
@@ -2748 +2748 @@
       c->S->m[pos_in_c]=clear_into;
       c->lengths[pos_in_c]=new_length;
+      c->weighted_lengths[pos_in_c]=qal;
+      if (c->gcd_of_terms[pos_in_c]==NULL)
+        c->gcd_of_terms[pos_in_c]=gcd_of_terms(clear_into,c->r);
       if (c->T_deg_full)
   c->T_deg_full[pos_in_c]=pTotaldegree_full(clear_into);
@@ -2754 +2757 @@
     c->strat->S[j]=clear_into;
     c->strat->lenS[j]=new_length;
-    c->weighted_lengths[pos_in_c]=qal;
+    
     assume(pLength(clear_into)==new_length);
     if(c->strat->lenSw!=NULL)