Changeset af378f7 in git for kernel/p_Mult_nn__T.cc

Timestamp:

Jan 30, 2008, 7:49:43 PM (16 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

2f959e83f22c8e788ce3941f4ac3eb2fb1df74c1

Parents:

12ea9df042d8c883f3d3c722b2388c0424347a88

Message:

anpassungen an gmp


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

File:

• kernel/p_Mult_nn__T.cc (modified) (3 diffs)

kernel/p_Mult_nn__T.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: p_Mult_nn__T.cc,v 1.9 2007-05-10 08:12:42 wienand Exp $
+ *  Version: $Id: p_Mult_nn__T.cc,v 1.10 2008-01-30 18:49:43 wienand Exp $
  *******************************************************************/
 
@@ -35 +35 @@
 #else
     number tmp = n_Mult(n, pGetCoeff(p), r);
-    if (tmp != NULL)
+    if (!nIsZero(tmp))
     {
-       p_SetCoeff(p, tmp, r);
+       number nc = pGetCoeff(p);
+       p_SetCoeff0(p, tmp, r);
+       n_Delete(&nc, r);
        old = p;
        pIter(p);
@@ -44 +46 @@
     {
       n_Delete(&tmp, r);
-      if (old == NULL) { q = pNext(q); }
-      else { pNext(old) = pNext(p); }
-      pIter(p);    // TODO Free Monom OLIVER
+      if (old == NULL)
+      {
+        pIter(p);
+        p_DeleteLm(&q, r);
+      }
+      else
+      { 
+        p_DeleteLm(&p, r); 
+        pNext(old) = p;
+      }
     }
 #endif