Changeset 0724284 in git

Timestamp:

Jun 19, 2009, 12:05:45 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

ca02ab01da5c28f679d205662ca93d894d1719eb

Parents:

2dc960cdece24ea28aac52bea49b55854b43c9cd

Message:

*hannes: shrink in redFirstShift


git-svn-id: file:///usr/local/Singular/svn/trunk@11910 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.92 2009-06-19 10:02:51 Singular Exp $ */
+/* $Id: kstd2.cc,v 1.93 2009-06-19 10:05:45 Singular Exp $ */
 /*
 *  ABSTRACT -  Kernel: alg. of Buchberger
@@ -1751 +1751 @@
 #endif
     ksReducePoly(h, &(strat->T[j]), strat->kNoetherTail(), NULL, strat);
-    poly qq=p_Shrink(h->GetTP(),strat->lV,strat->tailRing);
-    h->p=NULL;
-    h->t_p=qq;
-    if (qq!=NULL) h->GetP(strat->lmBin);
+    if (!h->IsNull())
+    {
+      poly qq=p_Shrink(h->GetTP(),strat->lV,strat->tailRing);
+      h->p=NULL;
+      h->t_p=qq;
+      if (qq!=NULL) h->GetP(strat->lmBin);
+    }
     
 #ifdef KDEBUG