Changeset a76e11 in git for kernel/p_Minus_mm_Mult_qq__T.cc

Timestamp:

Feb 7, 2008, 9:41:00 AM (16 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')

Children:

1e36c5c49e03ef1a34a6fa933337372c1c97d6f1

Parents:

bdd99204592e417c7486a7f8d51895e883e6197e

Message:

kutilc.cc: use pp_Mult_nn instead of copy and p_Mult_nn
p_Minus...: compute length correct
pp_Mult: return null in case of null


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

File:

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

kernel/p_Minus_mm_Mult_qq__T.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: p_Minus_mm_Mult_qq__T.cc,v 1.7 2008-01-30 18:49:43 wienand Exp $
+ *  Version: $Id: p_Minus_mm_Mult_qq__T.cc,v 1.8 2008-02-07 08:41:00 wienand Exp $
  *******************************************************************/
 
@@ -88 +88 @@
 #ifdef HAVE_ZERODIVISORS
   }
+  else
+  { // coeff itself is zero
+    shorter += 1;
+  }
 #endif
   n_Delete(&tb, r);
@@ -145 +149 @@
     }
     else
+    {
       pNext(a) = r->p_Procs->pp_Mult_mm(q, m, r, last);
+#ifdef HAVE_RINGS
+      if (! rField_is_Domain(r))
+      {
+        shorter += pLength(q) - pLength(pNext(a));
+      }
+#endif
+    }
     pSetCoeff0(m, tm);
   }