Changeset 0b4ec2 in git for kernel/kutil.cc

Timestamp:

Feb 23, 2009, 12:26:29 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

e5408173a819cf24009069d4443ae2c98be47c45

Parents:

05eb8c338d5239a2e038f0b776772d795b3ac14e

Message:

*hannes: use rIsRatGRing


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

File:

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

kernel/kutil.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: kutil.cc,v 1.122 2009-02-23 10:59:20 Singular Exp $ */
+/* $Id: kutil.cc,v 1.123 2009-02-23 11:26:29 Singular Exp $ */
 /*
 * ABSTRACT: kernel: utils for kStd
@@ -160 +160 @@
   {
 #ifdef HAVE_PLURAL
-    if (currRing->real_var_start>0)
+    if (rIsRatGRing(currRing))
     {
       if (_p_LmDivisibleByPart(p,currRing,
@@ -2296 +2296 @@
     if (new_pair) 
     {
-#ifdef HAVE_PLURAL
-      if (currRing->real_var_start>0)
-        chainCritPart(h,ecart,strat);
-      else
-#endif
       strat->chainCrit(h,ecart,strat);
     }
@@ -5548 +5543 @@
   }
 #endif
+#ifdef HAVE_PLURAL
+  if (rIsRatGRing(currRing))
+  {
+     strat->chainCrit=chainCritPart;
+  }
+#endif
 
   strat->sugarCrit =        TEST_OPT_SUGARCRIT;