Changeset 8e1c4e in git for kernel/kutil.cc

Timestamp:

Jan 31, 2008, 5:13:55 PM (16 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

31e857fefc0db942580fac2470cb89c397ef32a8

Parents:

73c6d21631d8e2c06ed5fa2c6e5dd9c80ce49f14

Message:

kutil.cc:
extendedspoly fehler

pp_Mult_nn__T.cc:
nIsZero

rmodulon.cc:
gcd/lcm ringspezifisch, umsortiert


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

File:

• kernel/kutil.cc (modified) (4 diffs)

kernel/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.75 2008-01-30 18:56:36 wienand Exp $ */
+/* $Id: kutil.cc,v 1.76 2008-01-31 16:13:54 wienand Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -2651 +2651 @@
       }
 #endif
-      poly tmp = p_ISet((long) ((p)->coef), currRing);
+      poly tmp = pInit();
+      pSetCoeff0(tmp, pGetCoeff(p));
       for (int i = 1; i <= currRing->N; i++)
       {
@@ -2657 +2658 @@
       }
       p_Setm(tmp, currRing);
+      pSetCoeff0(p, NULL);
       p = p_LmDeleteAndNext(p, strat->tailRing);
       pNext(tmp) = p;
@@ -4420 +4422 @@
   if ((strat->sl>=0)
 #ifdef HAVE_RINGS
-       && nIsUnit(pGetCoeff(strat->L[strat->Ll].p))
+       && nIsUnit(pGetCoeff(strat->S[0]))
 #endif
        && pIsConstant(strat->S[0]))