Changeset c8bd75 in git for Singular/kutil.cc

Timestamp:

Apr 23, 1998, 11:52:15 AM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d6fc3c5cb4a5d2eed49001686d571df819c5496b

Parents:

5079a04545e2a0f77d583f20b994866d68545a3b

Message:

 *hannes: minor fixes


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

File:

• Singular/kutil.cc (modified) (3 diffs)

Singular/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.17 1998-04-22 07:49:01 Singular Exp $ */
+/* $Id: kutil.cc,v 1.18 1998-04-23 09:52:11 Singular Exp $ */
 /*
 * ABSTRACT: kernel: utils for std
@@ -458 +458 @@
       {
         if (i < 0)
-        {
-          //if (strat->next!=NULL)
-          //{
-          //  strat=strat->next;
-          //  i=strat->tl;
-          //}
-          //else
-          {
-            /* not found : */
+        {
+          //if (strat->next!=NULL)
+          //{
+          //  strat=strat->next;
+          //  i=strat->tl;
+          //}
+          //else
+          {
+            /* not found : */
             pDelete(&p);
-            break;
-          }
-        }
-        else
-        {
+            break;
+          }
+        }
+        else
+        {
           if (strat->T[i].p==p)
-          {
-            /* found : */
+          {
+            /* found : */
             p=NULL;
-            break;
-          }
-          i--;
-        }
+            break;
+          }
+          i--;
+        }
       }
     }
@@ -3768 +3768 @@
       if (TEST_OPT_INTSTRATEGY)
       {
-        pCleardenom(strat->S[i]);
+        //if (strat->redTailChange)
+          pCleardenom(strat->S[i]);
       }
       if (TEST_OPT_PROT)