Changeset fab2cca in git for kernel/longtrans.cc

Timestamp:

May 23, 2011, 6:00:49 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

2024f6a924721dabadabb00eba442d9999dd3b89

Parents:

f6c50d15094fcdfe9d9f134bb3b061760aa62b3e

Message:

additional fixes to map of alg.ext.

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

File:

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

kernel/longtrans.cc

@@ -1009 +1009 @@
           pDelete(&p);
       }
-      pTest(p);
-      res=pAdd(res,p);
+      nNormalize(pGetCoeff(p));
+      if (nIsZero(pGetCoeff(p)))
+        pDelete(&p);
+      else
+      {
+        pTest(p);
+        res=pAdd(res,p);
+      }
     }
     pIter(za);