Changeset 9524c6 in git for kernel/kutil.cc

Timestamp:

Jan 10, 2010, 7:13:13 PM (14 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a7efc97c0d636c4ac16905a63a689e9aa48c7c02

Parents:

1917954077415ad882f163afeda18057b8a08f66

Message:

Function to generate pairs necessary to create a strong standard base weren't ready for modules (i.e. components). This fixes #191.

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

File:

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

kernel/kutil.cc

@@ -2917 +2917 @@
 void initenterstrongPairs (poly h,int k,int ecart,int isFromQ,kStrategy strat, int atR = -1)
 {
-
+  const int iCompH = pGetComp(h);
   if (!nIsOne(pGetCoeff(h)))
   {
@@ -2928 +2928 @@
 //      if (((unsigned long) pGetCoeff(h) % (unsigned long) pGetCoeff(strat->S[j]) != 0) &&
 //         ((unsigned long) pGetCoeff(strat->S[j]) % (unsigned long) pGetCoeff(h) != 0))
-      {
-        if (enterOneStrongPoly(j,h,ecart,isFromQ,strat, atR))
-          new_pair=TRUE;
+      if ( iCompH == pGetComp(strat->S[k]) )
+      {
+        {
+          if (enterOneStrongPoly(j,h,ecart,isFromQ,strat, atR))
+            new_pair=TRUE;
+        }
       }
     }