Changeset 1e36c5 in git

Timestamp:

Feb 7, 2008, 10:36:17 AM (15 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

821a22ae8ecc6a0b779b6b960ba9b7a10b4225aa

Parents:

a76e11d6f019a70e57e96e732ff01c50230d2973

Message:

bezgl.: pLmFree(strat->P.lcm); moved down on level, please check
ging so nicht ;)


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

File:

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

kernel/kstd2.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd2.cc,v 1.58 2008-02-06 09:12:46 wienand Exp $ */
+/* $Id: kstd2.cc,v 1.59 2008-02-07 09:36:17 wienand Exp $ */
 /*
 *  ABSTRACT -  Kernel: alg. of Buchberger
@@ -1244 +1244 @@
       if (hilb!=NULL) khCheck(Q,w,hilb,hilbeledeg,hilbcount,strat);
 //      Print("[%d]",hilbeledeg);
+      if (strat->P.lcm!=NULL)
+#ifdef HAVE_RINGS
+        pLmDelete(strat->P.lcm);
+#else
+        pLmFree(strat->P.lcm);
+#endif
       if (strat->sl>srmax) srmax = strat->sl;
     }
@@ -1251 +1257 @@
     }
 
-    if (strat->P.lcm!=NULL)
-#ifdef HAVE_RINGS
-      pLmDelete(strat->P.lcm);
-#else
-      pLmFree(strat->P.lcm);
-#endif
 #ifdef KDEBUG
     memset(&(strat->P), 0, sizeof(strat->P));