Changeset 9e8da7 in git for kernel/kstd2.cc

Timestamp:

Mar 15, 2011, 7:17:50 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

4f7d761d43192f9c176ef0f44b0f61e891545eb8

Parents:

f247337dd844f01e85a8379ff9c1e26fe7eea863

Message:

ADD: more testing (output due to option(teach)) for redNF

From: Oleksandr Motsak <motsak@mathematik.uni-kl.de>

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

File:

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

kernel/kstd2.cc

@@ -839 +839 @@
   BOOLEAN is_ring = rField_is_Ring(currRing);
 #endif
+#ifdef KDEBUG
+  if (TEST_OPT_DEBUG)
+  {
+    PrintS("redNF: starting S: ");
+    for( j = 0; j <= max_ind; j++ )
+    {
+      Print("S[%d] (of size: %d): ", j, pSize(strat->S[j]));
+      pWrite(strat->S[j]);
+    }
+  };
+#endif
+
   loop
   {
@@ -902 +914 @@
       {
         kBucketDestroy(&P.bucket);
+
+#ifdef KDEBUG
+        if (TEST_OPT_DEBUG)
+        {
+          PrintS("redNF: starting S: ");
+          for( j = 0; j <= max_ind; j++ )
+          {
+            Print("S[%d] (of size: %d): ", j, pSize(strat->S[j]));
+            pWrite(strat->S[j]);
+          }
+        };
+#endif
+        
         return NULL;
       }
@@ -922 +947 @@
       kBucketDestroy(&P.bucket);
       pNormalize(P.p);
+
+#ifdef KDEBUG
+      if (TEST_OPT_DEBUG)
+      {
+        PrintS("redNF: starting S: ");
+        for( j = 0; j <= max_ind; j++ )
+        {
+          Print("S[%d] (of size: %d): ", j, pSize(strat->S[j]));
+          pWrite(strat->S[j]);
+        }
+      };
+#endif
+
       return P.p;
     }