Changeset f9e6d7 in git for kernel/polys1.cc

Timestamp:

Apr 7, 2011, 6:08:05 PM (12 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

7626c5f616f12faf54ed441653b4c2edf50a0f63

Parents:

28c48782282ffdadf330a53afdac48463c228c26

Message:

fixes ticket #331

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

File:

• kernel/polys1.cc (modified) (1 diff)

kernel/polys1.cc

@@ -490 +490 @@
   if (rField_is_Ring(r))
   {
-    if ((ph!=NULL) && rField_has_Units(r))
+    if (ph!=NULL)
     {
       number k = nGetUnit(pGetCoeff(ph));
+      if (!nGreaterZero(pGetCoeff(ph))) k = nNeg(k); // in-place negation
       if (!nIsOne(k))
       {
-        number tmpGMP = k;
+        number tmpNumber = k;
         k = nInvers(k);
-        nDelete(&tmpGMP);
+        nDelete(&tmpNumber);
         poly h = pNext(ph);
         pSetCoeff(ph, nMult(pGetCoeff(ph), k));