Changeset 94ebce in git

Timestamp:

Jun 1, 2010, 7:16:53 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'c18334b998a8adbf0013b8e1ce0824774019443e')

Children:

03754089880718edbcdd06bf93aa9e883968ff2b

Parents:

9d51998ab5a2fd1f2dd0b9828be8548493355e8d

Message:

debug stuff

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

File:

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

kernel/kstd2.cc

@@ -320 +320 @@
     j = kFindDivisibleByInT(strat->T, strat->sevT, strat->tl, h);
     if (j < 0) return 1;
-#ifdef KDEBUG
-    if (TEST_OPT_DEBUG)
-    {
-      PrintS("T red:");
-      h->wrp();
-      PrintS(" with ");
-      strat->T[j].wrp();
-    }
-#endif
-
-    ksReducePoly(h, &(strat->T[j]), NULL, NULL, strat);
-
-#ifdef KDEBUG
-    if (TEST_OPT_DEBUG)
-    {
-      PrintS("\nto ");
-      h->wrp();
-      PrintLn();
-    }
-#endif
+
+    ksReducePoly(h, &(strat->T[j]), NULL, NULL, strat); // with debug output
 
     if (h->GetLmTailRing() == NULL)
@@ -1006 +988 @@
     rDebugPrint(currRing);
     PrintLn();
-
-    if(strat->tailRing != NULL && strat->tailRing != currRing)
-    {
-      PrintS("// **** bba start GB: tailRing: ");
-      rWrite(strat->tailRing);PrintLn(); rDebugPrint(strat->tailRing);
-    }
   }
 #endif /* MYTEST */
@@ -1017 +993 @@
 
 #ifdef HAVE_TAIL_RING
-  if(!idIs0(F))
+  if(!idIs0(F) &&(!rField_is_Ring()))  // create strong gcd poly computes with tailring and S[i] ->to be fixed
     kStratInitChangeTailRing(strat);
 #endif