Changeset e259fe in git

Timestamp:

Sep 16, 2008, 2:33:18 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

36605fd3c4e2a7b120265ffeb5acfc3f0e20a74e

Parents:

78558861c9f8b6003b3c438433e75d1eba76dc57

Message:

*hannes: initL


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

Location:

kernel

Files:

• kutil.cc (modified) (2 diffs)
• kutil.h (modified) (2 diffs)

kernel/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.107 2008-09-09 15:46:14 Singular Exp $ */
+/* $Id: kutil.cc,v 1.108 2008-09-16 12:33:18 Singular Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -5764 +5764 @@
   strat->sl = -1;
   /*- set L -*/
-  strat->Lmax = setmaxL;
+  strat->Lmax = ((IDELEMS(F)+setmaxLinc-1)/setmaxLinc)*setmaxLinc;
   strat->Ll = -1;
-  strat->L = initL();
+  strat->L = initL(((IDELEMS(F)+setmaxLinc-1)/setmaxLinc)*setmaxLinc);
   /*- set B -*/
   strat->Bmax = setmaxL;

kernel/kutil.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.h,v 1.37 2008-07-09 08:26:30 wienand Exp $ */
+/* $Id: kutil.h,v 1.38 2008-09-16 12:33:18 Singular Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -350 +350 @@
 void deleteInS (int i,kStrategy strat);
 void cleanT (kStrategy strat);
-static inline LSet initL ()
-{ return (LSet)omAlloc(setmaxL*sizeof(LObject)); };
+static inline LSet initL (int nr=setmaxL)
+{ return (LSet)omAlloc(nr*sizeof(LObject)); };
 void deleteInL(LSet set, int *length, int j,kStrategy strat);
 void enterL (LSet *set,int *length, int *LSetmax, LObject p,int at);