Changeset 8ba479 in git

Timestamp:

Feb 13, 2007, 3:58:52 PM (17 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

1aeec42f9fc95c9105c6cebdeb8c2bbc99bcbfea

Parents:

b749b94b74af2dec09d933009b2923e7b78f89ef

Message:

*bricken: some cleaning


git-svn-id: file:///usr/local/Singular/svn/trunk@9848 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.129 2007-02-13 14:19:48 bricken Exp $ */
+/* $Id: tgb.cc,v 1.130 2007-02-13 14:58:52 bricken Exp $ */
 /*
 * ABSTRACT: slimgb and F4 implementation
@@ -2085 +2085 @@
     PrintS("StopGauss\n");
 }
+static void write_poly_to_row(number* row, poly h, poly*terms, int tn){
+  //poly* base=row;
+  while(h!=NULL){
+    //Print("h:%i\n",h);
+    number coef=p_GetCoeff(h,c->r);
+    poly* ptr_to_h=(poly*) bsearch(&h,terms,tn,sizeof(poly),terms_sort_crit);
+    assume(ptr_to_h!=NULL);
+    int pos=ptr_to_h-terms;
+    row[pos]=coef;
+    //number_array[base+pos]=coef;
+    pIter(h);
+  }
+}
 static void linalg_step_modp(poly *p, poly* p_out, int&pn, poly* terms,int tn, slimgb_alg* c){
   static int export_n=0;
@@ -2099 +2112 @@
   for(i=0;i<pn;i++){
     poly h=p[i];
-    int base=tn*i;
-    while(h!=NULL){
-      //Print("h:%i\n",h);
-      number coef=p_GetCoeff(h,c->r);
-      poly* ptr_to_h=(poly*) bsearch(&h,terms,tn,sizeof(poly),terms_sort_crit);
-      assume(ptr_to_h!=NULL);
-      int pos=ptr_to_h-terms;
-      number_array[base+pos]=coef;
-      pIter(h);
-    }
-    p_Delete(&h,c->r);
+    //int base=tn*i;
+    write_poly_to_row(number_array+tn*i,h,terms,tn);
+
   }
 #if 0