Changeset 67dbdb in git for kernel/polys.cc

Timestamp:

Jul 15, 2008, 5:29:15 PM (15 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

1495df4e5c93df3aa2c4725ddb6e12616e8a1743

Parents:

e6b204a802e530f19c5979687963a8c3b22f136c

Message:

pSubst2: x^n kann Null sein

Wenn Division nicht möglich: Integerdivision ohne Rest


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

File:

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

kernel/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.32 2008-07-15 07:29:18 wienand Exp $ */
+/* $Id: polys.cc,v 1.33 2008-07-15 15:29:15 wienand Exp $ */
 
 /*
@@ -878 +878 @@
     nPower(e, pGetExp(qq, n), &nn);
     nm = nMult(nn, pGetCoeff(qq));
-    pSetCoeff(qq, nm);
+#ifdef HAVE_RINGS
+    if (nIsZero(nm))
+    {
+      pLmFree(&qq);
+      nDelete(&nm);
+    }
+    else
+#endif
+    {
+      pSetCoeff(qq, nm);
+      pSetExp(qq, n, 0);
+      pSetm(qq);
+      result = pAdd(result,qq);
+    }
     nDelete(&nn);
-    pSetExp(qq, n, 0);
-    pSetm(qq);
-    result = pAdd(result,qq);
   }
   p = pAdd(result, zero);