[SCM] an open source computer algebra system branch, cleanedupstream, updated. 6125e540ca6d66c307958938a9d53b245507c323

[Bernhard R. Link]

The following commit has been merged in the cleanedupstream branch:
commit e5344ab72492acfdcd648b65e76ad4cdfa6a4254
Author: Hans Schoenemann <hannes at mathematik.uni-kl.de>
Date:   Wed Feb 22 14:10:23 2012 +0100

    fix: better debug messages

diff --git a/kernel/kstd1.cc b/kernel/kstd1.cc
index 56d0c6d..67fb567 100644
--- a/kernel/kstd1.cc
+++ b/kernel/kstd1.cc
@@ -983,7 +983,7 @@ void enterSMora (LObject p,int atS,kStrategy strat, int atR = -1)
   if (TEST_OPT_DEBUG)
   {
     Print("new s%d:",atS);
-    wrp(p.p);
+    p_wrp(p.p,currRing,strat->tailRing);
     PrintLn();
   }
   #endif
diff --git a/kernel/kutil.cc b/kernel/kutil.cc
index 2b10ea5..1e3341c 100644
--- a/kernel/kutil.cc
+++ b/kernel/kutil.cc
@@ -6764,6 +6764,7 @@ void kDebugPrint(kStrategy strat)
     else if (pFDeg==pDeg) PrintS("pDeg");
     else if (pFDeg==kHomModDeg) PrintS("kHomModDeg");
     else if (pFDeg==totaldegreeWecart) PrintS("totaldegreeWecart");
+    else if (pFDeg==kModDeg) PrintS("kModDeg");
     else Print("? (%lx)", (long)pFDeg);
   PrintS(" / currRing->FDeg: ");
     if (currRing->pFDeg==p_Totaldegree) PrintS("p_Totaldegree");
@@ -6771,6 +6772,7 @@ void kDebugPrint(kStrategy strat)
     else if (currRing->pFDeg==pDeg) PrintS("pDeg");
     else if (currRing->pFDeg==kHomModDeg) PrintS("kHomModDeg");
     else if (currRing->pFDeg==totaldegreeWecart) PrintS("totaldegreeWecart");
+    else if (currRing->pFDeg==kModDeg) PrintS("kModDeg");
     else Print("? (%lx)", (long)currRing->pFDeg);
     PrintLn();
   Print(" syzring:%d, syzComb:%d limit:%d\n",rIsSyzIndexRing(currRing),strat->syzComp,rGetCurrSyzLimit());

-- 
an open source computer algebra system