Changeset baa72c5 in git for kernel/kstd1.cc

Timestamp:

Jul 22, 2008, 5:15:21 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a7fbddcbff3bcbdd93360df7d7c3a3d47bd04e1c

Parents:

c691df8cf70a169267ef0c05ea9bd356948e6e8b

Message:

*hannes: NF-rank


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

File:

• kernel/kstd1.cc (modified) (3 diffs)

kernel/kstd1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd1.cc,v 1.36 2008-07-08 13:02:21 Singular Exp $ */
+/* $Id: kstd1.cc,v 1.37 2008-07-22 15:15:21 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1483 +1483 @@
   BITSET save_test=test;
 
-  if (idIs0(q)) return idInit(IDELEMS(q),q->rank);
+  if (idIs0(q)) return idInit(IDELEMS(q),si_max(q->rank,F->rank));
   if ((idIs0(F))&&(Q==NULL))
     return idCopy(q); /*F=0*/
@@ -1537 +1537 @@
   }
   /*- compute------------------------------------------- -*/
-  res=idInit(IDELEMS(q),q->rank);
+  res=idInit(IDELEMS(q),strat->ak);
   for (i=0; i<IDELEMS(q); i++)
   {