Changeset e09d5a in git

Timestamp:

Apr 10, 2003, 3:56:49 PM (21 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

21fe24241d74f6999ddc47a5424063860673de84

Parents:

70f7623561091e7888c5ba63ec153d9d08384194

Message:

*bricken: little things


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

File:

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

Singular/tgb.cc

@@ -1087 +1087 @@
   //programming reasons
   int i=0;
-  red_object* buf=(red_object*) omalloc(PAR_N*sizeof(red_object));
+
+  poly* p=(poly*) omalloc((PAR_N+1)*sizeof(poly));//nullterminated
+
   int curr_deg=-1;
   while(i<PAR_N){
@@ -1112 +1114 @@
     if(s->i>=0)
       now_t_rep(s->j,s->i,c);
+    number coef;
+    int mlen=pLength(h);
+    h=redNF2(h,c,mlen,coef,2);
+    redTailShort(h,c->strat);
+    nDelete(&coef);
+
     free_sorted_pair_node(s,c->r);
     if(!h) continue;
     int len=pLength(h);
-    buf[i].p=h;
-    buf[i].sev=pGetShortExpVector(h);
-    buf[i].sum=NULL;
-    buf[i].bucket = kBucketCreate(currRing);
-    kBucketInit(buf[i].bucket,buf[i].p,len);
+    p[i]=h;
+    
     i++;
   }
+  p[i]=NULL;
+  
+  red_object* buf=(red_object*) omalloc(i*sizeof(red_object));
   c->normal_forms+=i;
+  int j;
+  for(j=0;j<i;j++){
+    buf[j].p=p[j];
+    buf[j].sev=pGetShortExpVector(p[j]);
+    buf[j].sum=NULL;
+    buf[j].bucket = kBucketCreate(currRing);
+    int len=pLength(p[j]);
+    kBucketInit(buf[j].bucket,buf[j].p,len);
+  }
+  omfree(p);
   qsort(buf,i,sizeof(red_object),red_object_better_gen);
 //    Print("\ncurr_deg:%i\n",curr_deg);
   Print("M[%i, ",i);  
   multi_reduction(buf, i, c);
-  Print("%i]",i);
-  int j;
+  Print("%i]",i); 
  //  for(j=0;j<i;j++){
 //     if(buf[j].p==NULL) PrintS("\n ZERO ALERT \n");