Changeset ff4e34f in git for Singular/kutil.h

Timestamp:

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

Author:

Olaf Bachmann <obachman@…>

Branches:

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

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.h (modified) (5 diffs)

Singular/kutil.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.h,v 1.31 2000-09-25 12:26:34 obachman Exp $ */
+/* $Id: kutil.h,v 1.32 2000-10-04 13:12:03 obachman Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -58 +58 @@
   KINLINE void Tail_Minus_mm_Mult_qq(poly m, poly qq, int lq, poly spNoether);
   KINLINE void sLObject::Tail_Mult_nn(number n);
-  KINLINE poly GetP(ring LmRing = currRing);
+  KINLINE poly GetP(ring LmRing = currRing, omBin bin = NULL);
   KINLINE void CanonicalizeP();
 };
@@ -126 +126 @@
   BOOLEAN use_buckets;
   ring tailRing;
+  omBin lmBin;
+  omBin tailBin;
   /*FALSE, if posInL == posInL10*/
   char    redTailChange;
@@ -131 +133 @@
   char    newt;/*used for messageSets*/
 
-  skStrategy()
-    {
-      memset(this, 0, sizeof(skStrategy));
-      tailRing = currRing;
-      P.tailRing = currRing;
-      P.lmRing = currRing;
-    };
-  
+  KINLINE skStrategy();
+  KINLINE ~skStrategy();
 };
 
@@ -208 +204 @@
 
 KINLINE TSet initT ();
+KINLINE poly k_LmInit_lmRing_2_tailRing(poly p, ring lmRing, ring tailRing, omBin bin);
+KINLINE poly k_LmInit_tailRing_2_lmRing(poly p, ring tailRing, ring lmRing, omBin bin);
+KINLINE poly k_LmShallowCopyDelete_lmRing_2_tailRing(poly p, ring lmRing, ring tailRing, omBin bin);
+KINLINE poly k_LmShallowCopyDelete_tailRing_2_lmRing(poly p, ring tailRing, ring lmRing,  omBin bin);
+
 KINLINE poly k_LmInit_lmRing_2_tailRing(poly p, ring lmRing, ring tailRing);
 KINLINE poly k_LmInit_tailRing_2_lmRing(poly p, ring tailRing, ring lmRing);