Changeset 206e158 in git for kernel/kspoly.cc

Timestamp:

May 11, 2007, 12:48:05 PM (16 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

d15996cd44ce997d3360fac629f4062adb1c4836

Parents:

3fd4df896525da08d34f33e88e6239994fa4d0e6

Message:

structs.h, numbers.*, rmodulo*:
new method nComp
nIntDiv(0, a) = module / a in rmodulo

ringgb.*:
adapted for more generic rings

ring.h:
rField_is_Domain new

k*:
adapted for gbs over Z/m


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

File:

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

kernel/kspoly.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kspoly.cc,v 1.10 2007-05-10 08:12:40 wienand Exp $ */
+/* $Id: kspoly.cc,v 1.11 2007-05-11 10:48:03 wienand Exp $ */
 /*
 *  ABSTRACT -  Routines for Spoly creation and reductions
@@ -14 +14 @@
 #include "p_Procs.h"
 #include "gring.h"
-#ifdef HAVE_RING2TOM
+#ifdef HAVE_RINGS
 #include "polys.h"
 #endif
@@ -214 +214 @@
     a2 = tailRing->p_Procs->pp_Mult_mm(a2, m2, tailRing,last);
 #ifdef HAVE_RINGS
-  if (rField_is_Ring(currRing)) l2 = pLength(a2);
+  if (rField_is_Ring(currRing) && !(rField_is_Domain(currRing))) l2 = pLength(a2);
 #endif