Changeset 893b89 in git

Timestamp:

May 19, 2006, 2:21:12 PM (17 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

d7696978c5abd62a2ed61973e889cedec17f2819

Parents:

c7c5ef98d9df6d0a51cfc1de344f37bc5d1f34f4

Message:

*bricken: fix for last check in


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

File:

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

kernel/tgb.cc

@@ -5 +5 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: tgb.cc,v 1.90 2006-05-19 10:30:47 bricken Exp $ */
+/* $Id: tgb.cc,v 1.91 2006-05-19 12:21:12 bricken Exp $ */
 /*
 * ABSTRACT: slimgb and F4 implementation
@@ -2254 +2254 @@
 }
 slimgb_alg::~slimgb_alg(){
+  
   if (!(completed)){
+      poly* add=(poly*) omalloc((pair_top+2)*sizeof(poly));
       int piter;
+      int pos=0;
       for(piter=0;piter<=pair_top;piter++){
         sorted_pair_node* s=apairs[piter];
         if (s->i<0){
             //delayed element
-            add_to_basis_ideal_quotient(s->lcm_of_lm, this, NULL);
-            
+            if (s->lcm_of_lm!=NULL){
+                add[pos]=s->lcm_of_lm;
+                pos++;
+
+            }
         }
+    
         free_sorted_pair_node(s,r);
         apairs[piter]=NULL;
       }
+      pair_top=-1;
+      add[pos]=NULL;
+      while(add[pos]!=NULL){
+        add_to_basis_ideal_quotient(add[pos],this,NULL);
+      }
+      for(piter=0;piter<=pair_top;piter++){
+        sorted_pair_node* s=apairs[piter];
+        assume(s->i>=0);
+        free_sorted_pair_node(s,r);
+        apairs[piter]=NULL;
+      }
+      pair_top=-1;
   }
   id_Delete(&add_later,r);