Changeset 093f30e in git for kernel/p_Mult_q.cc

Timestamp:

Feb 8, 2008, 11:11:30 AM (16 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

60544db1dc67a36a012f9f3809c0e8d260f9bad0

Parents:

ecededc1c7ef7a762ce55b72be0707700967ceab

Message:

kstd1.cc, kstd2.cc:
redRing2toM --> redRing

kutil.*:
extendedspoly unit case

p_Mult_q.cc:
assume domain for bucket mult

pp_Mult_mm__T.cc:
free tmp memory

rmodulo2m.cc
rmodulon.cc


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

File:

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

kernel/p_Mult_q.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: p_Mult_q.cc,v 1.6 2008-01-30 18:56:37 wienand Exp $
+ *  Version: $Id: p_Mult_q.cc,v 1.7 2008-02-08 10:11:30 wienand Exp $
  *******************************************************************/
 #include "mod2.h"
@@ -69 +69 @@
   assume(p != NULL && pNext(p) != NULL && q != NULL && pNext(q) != NULL);
   pAssume1(! pHaveCommonMonoms(p, q));
+#ifdef HAVE_RINGS
+  assume(!rField_is_Domain(currRing));
+#endif
   assume(lp >= 1 && lq >= 1);
   p_Test(p, r);
@@ -74 +77 @@
 
   poly res = pp_Mult_mm(p,q,r);     // holds initially q1*p
-#ifdef HAVE_RINGS
-  if (rField_is_Ring(currRing))
-    WarnS("_p_Mult_q_Bucket not ring testet !!!");
-#endif
   poly qq = pNext(q);               // we iter of this
   poly qn = pp_Mult_mm(qq, p,r);    // holds p1*qi