Changeset e6cbed in git for kernel/kspoly.cc

Timestamp:

Jun 20, 2006, 11:44:18 PM (18 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

451a9afc25d0cd3e8d7385616d5a2ae5fe690dbe

Parents:

0266acf035e867ba3e767b7d865bb68b4ab24eca

Message:

[oliver]

kutil.cc:
* posInT/L tests
* posInS update

kspoly.cc:
* coefficient in case of rings


git-svn-id: file:///usr/local/Singular/svn/trunk@9246 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.5 2006-06-09 23:17:04 wienand Exp $ */
+/* $Id: kspoly.cc,v 1.6 2006-06-20 21:44:18 wienand Exp $ */
 /*
 *  ABSTRACT -  Routines for Spoly creation and reductions
@@ -483 +483 @@
       {
         p_LmFree(m2,currRing);
-        nNew(&(pGetCoeff(m1)));
+#ifdef HAVE_RING2TOM
+        if (currRing->cring == 1)
+          pSetCoeff(m1, t2);
+        else
+#endif
+          nNew(&(pGetCoeff(m1)));
         return m1;
       }
@@ -489 +494 @@
       {
         p_LmFree(m1,currRing);
-        nNew(&(pGetCoeff(m2)));
+#ifdef HAVE_RING2TOM
+        if (currRing->cring == 1)
+            pSetCoeff(m2, t1);
+        else
+#endif
+          nNew(&(pGetCoeff(m2)));
         return m2;
       }