Changeset a539ad in git for kernel/kstd1.cc

Timestamp:

Feb 6, 2008, 10:12:47 AM (16 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', 'ec94ef7a30b928574c0c3daf41f6804dff5f6b69')

Children:

8f2bd1fc11ce18b5be7a734f75309011e212a4d3

Parents:

4dcfc0f02d5040e014133baff89ccfc1bbc383ed

Message:

kspoly.cc:
ksCreateShortSpoly: Speicher freigeben

kstd1.cc:
updateL: Speicher freigeben

kstd2.cc:
redRing2toM: Speicher freigeben
bba: Speicher freigeben
pLmFree(strat->P.lcm); moved down on level, please check

kutil.cc:
deleteInL: Speicher freigeben
eigene Routinen: Speicher freigeben

polys1.cc:
pContent: Speicher freigeben

rintegers.cc, rmodulon.cc: nNeg ist inplace Operation


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

File:

• kernel/kstd1.cc (modified) (2 diffs)

kernel/kstd1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd1.cc,v 1.30 2007-11-09 11:31:52 Singular Exp $ */
+/* $Id: kstd1.cc,v 1.31 2008-02-06 09:12:46 wienand Exp $ */
 /*
 * ABSTRACT:
@@ -748 +748 @@
       if (pNext(strat->L[j].p) == strat->tail)
       {
-        pLmFree(strat->L[j].p);    /*deletes the short spoly and computes*/
+#ifdef HAVE_RINGS
+        if (rField_is_Ring(currRing))
+          pLmDelete(strat->L[j].p);    /*deletes the short spoly and computes*/
+        else
+#else
+          pLmFree(strat->L[j].p);    /*deletes the short spoly and computes*/
+#endif
         strat->L[j].p = NULL;
         poly m1 = NULL, m2 = NULL;