Changeset a09a42 in git for kernel/pp_Mult_nn__T.cc

Timestamp:

Jan 16, 2006, 3:02:52 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2fa36c576e6a4ddbb1093b43c7f8e9835e17e52a')

Children:

ce89df54a95c17d936886fb9f5a3c977f877d690

Parents:

e6e28e89e44a9e577c2fdbae4479e7ab4a01d1ca

Message:

*hannes: memeory leaks, formatting


git-svn-id: file:///usr/local/Singular/svn/trunk@8906 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.2 2006-01-13 18:10:05 wienand Exp $
+ *  Version: $Id: pp_Mult_nn__T.cc,v 1.3 2006-01-16 14:02:52 Singular Exp $
  *******************************************************************/
 
@@ -28 +28 @@
   do
   {
+#ifndef HAVE_RING2TOM
+    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);
+#else
     number nc = pGetCoeff(p);
     number tmp = n_Mult(n, nc, r);
-#ifdef HAVE_RING2TOM
-    if (r->cring==0 || (r->cring ==1 && (long) tmp != 0)){
-#endif
+    if (r->cring==0 || (r->cring ==1 && (long) tmp != 0))
+    {
       p_AllocBin(pNext(q), bin, r);
       q = pNext(q);
       pSetCoeff0(q, tmp);
       p_MemCopy(q->exp, p->exp, length);
-#ifdef HAVE_RING2TOM
     }
+    else
+      n_Delete(&tmp,r);
 #endif
     pIter(p);