Changeset 83575aa in git for kernel/kutil.cc

Timestamp:

Jun 24, 2008, 10:21:15 AM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

696db910cd5e492acf646e196ce0923b68256ee8

Parents:

0f7420d8dcd572b123ad8f49c15b8b08b0bb6817

Message:

*hannes: more tests with KDEBUG


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

File:

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

kernel/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.92 2008-06-10 14:35:41 motsak Exp $ */
+/* $Id: kutil.cc,v 1.93 2008-06-24 08:21:15 Singular Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -5234 +5234 @@
   assume(!p.is_normalized || nIsOne(pGetCoeff(p.p)));
 
+#ifdef KDEBUG  
+  // do not put an LObject twice into T:
+  for(i=strat->tl;i>=0;i--)
+  {
+    if (p.p==strat->T[i].p) 
+    {
+      printf("already in T at pos %d of %d, atT=%d\n",i,strat->tl,atT);
+      return;
+    }
+  }
+#endif  
   strat->newt = TRUE;
   if (atT < 0)