Changeset 7b4121 in git for Singular/kstd2.cc

Timestamp:

Jul 14, 1999, 3:16:20 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

d7d8ab37cebd1ad365c356c62b7e36ea81c94024

Parents:

ff67107dcced00eea462fd735d62e6e426cb314b

Message:

* hannes: optimisations, GMG's requests, update of Tsts (part 1), bug_13


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

File:

• Singular/kstd2.cc (modified) (7 diffs)

Singular/kstd2.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd2.cc,v 1.26 1999-05-29 11:59:16 Singular Exp $ */
+/* $Id: kstd2.cc,v 1.27 1999-07-14 13:16:06 Singular Exp $ */
 /*
 *  ABSTRACT -  Kernel: alg. of Buchberger
@@ -870 +870 @@
         PrintS("\nto:");
         wrp(h);
-        PrintLn();
+        PrintLn();
       }
       if (h == NULL) return NULL;
@@ -1479 +1479 @@
   }
   kTest(strat);
+  if (TEST_OPT_PROT) { PrintS("r"); mflush(); }
   p = redNF(pCopy(q),strat);
   kTest(strat);
   if ((p!=NULL)&&(lazyReduce==0))
   {
+    if (TEST_OPT_PROT) { PrintS("t"); mflush(); }
     p = redtailBba(p,strat->sl,strat);
   }
@@ -1490 +1492 @@
   idDelete(&strat->Shdl);
   test=save_test;
+  if (TEST_OPT_PROT) PrintLn();
   return p;
 }
@@ -1528 +1531 @@
     if (q->m[i]!=NULL)
     {
+      if (TEST_OPT_PROT) { PrintS("r");mflush(); }
       p = redNF(pCopy(q->m[i]),strat);
       if ((p!=NULL)&&(lazyReduce==0))
       {
+        if (TEST_OPT_PROT) { PrintS("t"); mflush(); }
         p = redtailBba(p,strat->sl,strat);
       }
@@ -1537 +1542 @@
     //else
     //  res->m[i]=NULL;
-    if (TEST_OPT_PROT)
-    {
-      PrintS("-");mflush();
-    }
   }
   /*- release temp data------------------------------- -*/
@@ -1546 +1547 @@
   idDelete(&strat->Shdl);
   test=save_test;
+  if (TEST_OPT_PROT) PrintLn();
   return res;
 }