Changeset 009d80 in git for kernel/pp_Mult_nn__T.cc

Timestamp:

May 10, 2007, 10:12:44 AM (17 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', 'a719bcf0b8dbc648b128303a49777a094b57592c')

Children:

4cd2f891f36b9e1d58f0aeaa4683254f54088298

Parents:

4bebba7353438f052b4ad581ede34fa6f31e5a71

Message:

new compile switch: HAVE_RINGS
at total there are now: HAVE_RINGS, HAVE_RING2TOM, HAVE_RINGMODN

kspoly.cc, kstd1.cc, kstd2.cc, kutil.cc, kspoly.cc, polys.cc, ring.*:
adaption of new switches and rField_is_Ring method

numbers.*:
introduced new operation:
  nDivBy(a, b) = Is a divisible by b?

pDebig.cc, pInline1.h:
use of new nDivBy method

p_Mult_q:
new routine for rings

p_*, pp_*:
template switch HAVE_ZERODIVISOR

polys1.cc:
poly exponentation, switches

rmodulo*:
nDivBy implementation, DBTest

structs.h:
nDivBy, ringtype, ringflaga, ringflagb


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

File:

• kernel/pp_Mult_nn__T.cc (modified) (3 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.5 2007-05-03 14:04:34 Singular Exp $
+ *  Version: $Id: pp_Mult_nn__T.cc,v 1.6 2007-05-10 08:12:43 wienand Exp $
  *******************************************************************/
 
@@ -28 +28 @@
   do
   {
-#if !defined(HAVE_RING2TOM) && !defined(HAVE_RINGMODN)
+#ifndef HAVE_ZERODIVISORS
     p_AllocBin(pNext(q), bin, r);
     q = pNext(q);
@@ -37 +37 @@
     number nc = pGetCoeff(p);
     number tmp = n_Mult(n, nc, r);
-    if (r->cring==0 || (r->cring ==1 && (long) tmp != 0))
+    if (tmp != NULL)
     {
       p_AllocBin(pNext(q), bin, r);