Changeset 899741 in git

Timestamp:

Sep 10, 2008, 6:41:12 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

cab83807bb068e131a3c656b02a316119e75729c

Parents:

a5da6f30272bf99d0d44c402d1eb3efcf7d79858

Message:

*hannes: mstd


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

Location:

kernel

Files:

• kstd1.cc (modified) (3 diffs)
• kstd1.h (modified) (2 diffs)

kernel/kstd1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd1.cc,v 1.37 2008-07-22 15:15:21 Singular Exp $ */
+/* $Id: kstd1.cc,v 1.38 2008-09-10 16:41:12 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1934 +1934 @@
     if (strat->M!=NULL) idDelete(&strat->M);
   }
-  else
-  if (strat->M==NULL)
+  else if (strat->M==NULL)
   {
     M=idInit(1,F->rank);
@@ -1951 +1950 @@
     if (!oldDegBound)
       test &= ~Sy_bit(OPT_DEGBOUND);
+  }
+  else
+  {
+    if (IDELEMS(M)>IDELEMS(r)) { idDelete(&M); M=idCopy(r); }
   }
   return r;

kernel/kstd1.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd1.h,v 1.4 2008-06-24 08:20:31 Singular Exp $ */
+/* $Id: kstd1.h,v 1.5 2008-09-10 16:41:12 Singular Exp $ */
 /*
 * ABSTRACT
@@ -10 +10 @@
 #include "structs.h"
 
-/*2
-*input: F: a set (array) of polys with <= Fmax entries (0..Fmax-1)
-*       *S: a set (array) of polys with *Smax initialized entries (0..*Smax-1)
-*output:*S: the standard base: a set (array) with <= *Smax+1 entries (0..*Smax)
-*/
 ideal mora (ideal F, ideal Q,intvec *w,intvec *hilb,kStrategy strat);