Changeset 0efefc in git for Singular/iparith.cc

Timestamp:

Aug 3, 2010, 1:40:51 PM (14 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

e4863aa6485e0d01153b159648c3274db46450de

Parents:

8ed989d742f7c0e5a304f732476d9017d9d5fddb

Message:

fix subst

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

File:

• Singular/iparith.cc (modified) (1 diff)

Singular/iparith.cc

@@ -6386 +6386 @@
   BOOLEAN nok=jjSUBST_Test(v,w,ringvar,monomexpr);
   if (nok) return TRUE;
-  if ((long)pTotaldegree(monomexpr)> (currRing->bitmask / (long)pTotaldegree((poly)u->Data())))
+  poly up=(poly)u->Data();
+  if ((monomexpr==NULL)
+  ||((long)pTotaldegree(monomexpr)> (currRing->bitmask / (long)pTotaldegree(p))))
   {
     Werror("OVERFLOW in subst, max exponent is %ld",currRing->bitmask);