Changeset fffb3f in git

Timestamp:

May 20, 1998, 12:08:41 PM (25 years ago)

Author:

Gerhard Pfister <pfister@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

a0858c1f380d8ca8dfc2ab3e3542af4ba4ad5399

Parents:

023adb8fb6d2072bffd057e8797ab9fabb2e9769

Message:

* pfister/hannes: fixed: complete reduction of SB with interred
   (set locally option(redTail) if option redSB is set)


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

Location:

Singular

Files:

• kstd1.cc (modified) (2 diffs)
• kutil.cc (modified) (3 diffs)

Singular/kstd1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kstd1.cc,v 1.21 1998-05-14 13:04:16 Singular Exp $ */
+/* $Id: kstd1.cc,v 1.22 1998-05-20 10:08:39 pfister Exp $ */
 /*
 * ABSTRACT:
@@ -2218 +2218 @@
   if (pOrdSgn == -1)   strat->honey = TRUE;
   initS(F,Q,strat);
+  if (TEST_OPT_REDSB)
+    strat->noTailReduction=FALSE;
   updateS(TRUE,strat);
   if (TEST_OPT_REDSB && TEST_OPT_INTSTRATEGY)

Singular/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.20 1998-05-14 13:04:19 Singular Exp $ */
+/* $Id: kutil.cc,v 1.21 1998-05-20 10:08:41 pfister Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -3102 +3102 @@
           redSi = pHead(strat->S[i]);
           strat->S[i] = redBba(strat->S[i],i-1,strat);
-          if ((strat->ak!=0)&&(strat->S[i]!=NULL)) strat->S[i]=redQ(strat->S[i],i+1,strat); /*reduce S[i] mod Q*/
+          if ((strat->ak!=0)&&(strat->S[i]!=NULL))
+            strat->S[i]=redQ(strat->S[i],i+1,strat); /*reduce S[i] mod Q*/
           if (TEST_OPT_PROT && (pComp(redSi,strat->S[i])!=0))
           {
@@ -3201 +3202 @@
     if (toT)
     {
-      for (i=0; i<=strat->sl; i++)
+      for (i=1; i<=strat->sl; i++)
       {
         if (((strat->fromQ==NULL) || (strat->fromQ[i]==0))