Changeset ff4e34f in git for Singular/kutil.cc

Timestamp:

Oct 4, 2000, 3:12:05 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38077648e7239f98078663eb941c3c979511150a')

Children:

f103fb07c2e69147dd1bca55b8421e35361355a8

Parents:

122d498cedb975079e9eff3554a721e5e8f3af86

Message:

* buckets, lmBin, tailBin


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

File:

• Singular/kutil.cc (modified) (4 diffs)

Singular/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.63 2000-09-25 12:26:33 obachman Exp $ */
+/* $Id: kutil.cc,v 1.64 2000-10-04 13:12:03 obachman Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -3243 +3243 @@
   }
   else atT = 0;
+
+  if (strat->tailBin != NULL)
+    pNext(p.p)=p_ShallowCopyDelete(pNext(p.p),
+                                   (strat->tailRing != NULL ? 
+                                    strat->tailRing : currRing),
+                                   strat->tailBin);
   strat->T[atT].p = p.p;
   strat->T[atT].ecart = p.ecart;
@@ -3282 +3288 @@
     strat->T[atT].length = p.length;
 
-  strat->T[atT].pLength = p.pLength;
+  if (strat->tailBin != NULL)
+    pNext(p.p)=p_ShallowCopyDelete(pNext(p.p),
+                                   (strat->tailRing != NULL ? 
+                                    strat->tailRing : currRing),
+                                   strat->tailBin);
+  if (strat->use_buckets && p.pLength <= 0)
+    strat->T[atT].pLength = pLength(p.p);
+  else
+    strat->T[atT].pLength = p.pLength;
+
   if (p.sev == 0)
   {
@@ -3624 +3639 @@
 }
 
-void kFreeStrat(kStrategy strat)
-{
-  omFreeSize(strat, sizeof(skStrategy));
-}
-
 rOrderType_t spGetOrderType(ring r, int modrank, int syzcomp)
 {