Changeset 32ed4f in git for kernel/p_Mult_nn__T.cc

Timestamp:

Jun 7, 2006, 8:44:24 PM (17 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

8dee806bede9bf5ad46984badc31c4ca67932402

Parents:

fde597007f11fbf16445cfd215c8d3ab696801a0

Message:

kstd2.cc:
deactivate zero reduction

kutil.cc:
chain crit restricted, need to be unleashed again

p_Mult_nn__T.cc:
Error in multiplication routine fixed

pInline1.h:
comments added


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

File:

• kernel/p_Mult_nn__T.cc (modified) (4 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.5 2006-02-28 17:50:33 wienand Exp $
+ *  Version: $Id: p_Mult_nn__T.cc,v 1.6 2006-06-07 18:44:24 wienand Exp $
  *******************************************************************/
 
@@ -23 +23 @@
 
   poly q = p;
+#ifdef HAVE_RING2TOM
+  poly old = NULL;
+#endif
   while (p != NULL)
   {
@@ -35 +38 @@
     {
        p_SetCoeff(p, tmp, r);
+       old = p;
        pIter(p);
     }
@@ -40 +44 @@
     {
       n_Delete(&tmp, r);
-      if (p == q) { q = pNext(q); }
-      p = pNext(p);    // TODO Free Monom OLIVER
+      if (old == NULL) { q = pNext(q); }
+      else { pNext(old) = pNext(p); }
+      pIter(p);    // TODO Free Monom OLIVER
     }
 #endif