Changeset cea6f3 in git for kernel/pp_Mult_nn__T.cc

Timestamp:

Jan 13, 2006, 7:10:06 PM (18 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '2fa36c576e6a4ddbb1093b43c7f8e9835e17e52a')

Children:

2e4de3d33d0bea3780e1932fdaf8a41c161f473e

Parents:

4cbb61ba5014a593b9bc6569b497e9a8151bc15f

Message:

RING2TOM Merger


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

File:

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

kernel/pp_Mult_nn__T.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: pp_Mult_nn__T.cc,v 1.1.1.1 2003-10-06 12:16:02 Singular Exp $
+ *  Version: $Id: pp_Mult_nn__T.cc,v 1.2 2006-01-13 18:10:05 wienand Exp $
  *******************************************************************/
 
@@ -28 +28 @@
   do
   {
-    p_AllocBin(pNext(q), bin, r);
-    q = pNext(q);
     number nc = pGetCoeff(p);
-    pSetCoeff0(q, n_Mult(n, nc, r));
-    p_MemCopy(q->exp, p->exp, length);
+    number tmp = n_Mult(n, nc, r);
+#ifdef HAVE_RING2TOM
+    if (r->cring==0 || (r->cring ==1 && (long) tmp != 0)){
+#endif
+      p_AllocBin(pNext(q), bin, r);
+      q = pNext(q);
+      pSetCoeff0(q, tmp);
+      p_MemCopy(q->exp, p->exp, length);
+#ifdef HAVE_RING2TOM
+    }
+#endif
     pIter(p);
   }