Changeset b1c0a9 in git for kernel/kutil.cc

Timestamp:

Apr 8, 2009, 7:21:58 PM (14 years ago)

Author:

Motsak Oleksandr <motsak@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

7e676255a90b5015b1bc8fb6430bdaffe6ea7a81

Parents:

a7541b59e5f1a2bdd1a3d8749700ceb15bb5b7a7

Message:

*motsak: fixes due to std_1


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

File:

• kernel/kutil.cc (modified) (2 diffs)

kernel/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.131 2009-02-27 11:21:24 Singular Exp $ */
+/* $Id: kutil.cc,v 1.132 2009-04-08 17:21:58 motsak Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -3091 +3091 @@
     }
   }
+
+  if (strat->noClearS) return;
+  
 //   #ifdef HAVE_PLURAL
-  if (!rIsPluralRing(currRing))
-//   #endif
-  {
+/*
+  if (rIsPluralRing(currRing))
+  {
+    j=pos;
+    loop
+    {
+      if (j > k) break;
+
+      if (pLmDivisibleBy(h, strat->S[j]))
+      {
+        deleteInS(j, strat);
+        j--;
+        k--;
+      }
+      
+      j++;
+    }
+  }    
+  else
+*/  
+//   #endif // ??? Why was the following cancelation disabled for non-commutative rings? 
+  { 
     j=pos;
     loop