Changeset dd60f3c in git

Timestamp:

Jan 31, 2007, 11:11:48 AM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

9108d34b50bbad2ac2032416e205c835f49bad41

Parents:

b3789a81928d6793696598191a3de4c8374a89bd

Message:

*hannes: kFindDiv...S


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

File:

• kernel/kstd2.cc (modified) (2 diffs)

kernel/kstd2.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd2.cc,v 1.35 2007-01-10 17:01:57 Singular Exp $ */
+/* $Id: kstd2.cc,v 1.36 2007-01-31 10:11:48 Singular Exp $ */
 /*
 *  ABSTRACT -  Kernel: alg. of Buchberger
@@ -88 +88 @@
 
   pAssume(~not_sev == p_GetShortExpVector(p, currRing));
-#if 0
-  int ende=posInS(strat,*max_ind,p,0)+1+(strat->ak>0)*pGetComp(p);
+#if 1
+  int ende;
+  if (strat->ak>0) ende=strat->sl;
+  else ende=posInS(strat,*max_ind,p,0)+1;
   if (ende>(*max_ind)) ende=(*max_ind);
 #else