Changeset 3a1db5 in git for Singular/kstdfac.cc

Timestamp:

Nov 3, 2000, 3:50:24 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

e48563d5ed52648088a920c503d1137f101859b6

Parents:

b6b85df0821ee32eafa525d9de58391e73dc09d4

Message:

* as we go along


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

File:

• Singular/kstdfac.cc (modified) (6 diffs)

Singular/kstdfac.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstdfac.cc,v 1.44 2000-10-23 12:02:14 obachman Exp $ */
+/* $Id: kstdfac.cc,v 1.45 2000-11-03 14:50:18 obachman Exp $ */
 /*
 *  ABSTRACT -  Kernel: factorizing alg. of Buchberger
@@ -37 +37 @@
   poly  p;
   TSet t=(TSet)omAlloc0(o->tmax*sizeof(TObject));
+  TObject** r = (TObject**)omAlloc0(o->tmax*sizeof(TObject*));
 
   for (j=0; j<=o->tl; j++)
   {
+    r[t[j].r] = &t[j];
     t[j] = o->T[j];
     p = o->T[j].p;
@@ -60 +62 @@
   }
   n->T=t;
+  n->R=r;
 }
 
@@ -165 +168 @@
   s->sevS=(unsigned long *)omAlloc(IDELEMS(o->Shdl)*sizeof(unsigned long));
   memcpy(s->sevS,o->sevS,IDELEMS(o->Shdl)*sizeof(unsigned long));
+  s->S_2_R=(int*)omAlloc(IDELEMS(o->Shdl)*sizeof(int));
+  memcpy(s->S_2_R,o->S_2_R,IDELEMS(o->Shdl)*sizeof(int));
+  s->sevT=(unsigned long *)omAlloc(o->tmax*sizeof(unsigned long));
+  memcpy(s->sevT,o->sevT,IDELEMS(o->Shdl)*sizeof(unsigned long));
   if(o->fromQ!=NULL)
   {
@@ -320 +327 @@
       enterpairs(n->P.p,n->sl,n->P.ecart,pos,n);
       n->enterS(n->P,pos,n);
-      enterTBba(n->P,n->posInT(n->T,n->tl,n->P),n);
+      enterT(n->P,n);
 
       /* construct D */
@@ -609 +616 @@
         n->enterS(n->P,pos,n);
         if (n->sl>srmax) srmax = n->sl;
-        enterTBba(n->P,n->posInT(n->T,n->tl,n->P),n);
+        enterT(n->P,n);
 
         /* construct D */