Changeset e259fe in git for kernel/kutil.cc

Timestamp:

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

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

36605fd3c4e2a7b120265ffeb5acfc3f0e20a74e

Parents:

78558861c9f8b6003b3c438433e75d1eba76dc57

Message:

*hannes: initL


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

File:

• kernel/kutil.cc (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;