Changeset 24a614b in git

Timestamp:

Sep 7, 2011, 9:07:07 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a657104b677b4c461d018cbf3204d72d34ad66a9')

Children:

3aa9b6373c3eba8145bd3a0a102735ba0fc847ae

Parents:

895b31c1bd66c3f92ae5a8ac32a8a9758c66db7e

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-09-07 21:07:07+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:12:33+01:00

Message:

FIX: nc_p_Bracket_qq must take the 3rd RING argument!

Files:

• Singular/extra.cc (modified) (1 diff)
• Singular/iparith.cc (modified) (1 diff)
• kernel/kutil.cc (modified) (2 diffs)
• libpolys/polys/nc/nc.h (modified) (1 diff)

Singular/extra.cc

@@ -1235 +1235 @@
         else return TRUE;
         res->rtyp=POLY_CMD;
-        if (rIsPluralRing(currRing))  res->data=nc_p_Bracket_qq(p,q);
+        if (rIsPluralRing(currRing))  res->data=nc_p_Bracket_qq(p,q, currRing);
         else res->data=NULL;
         return FALSE;

Singular/iparith.cc

@@ -2691 +2691 @@
       {
         poly p = (poly)a->CopyD(POLY_CMD); // p = copy!
-        res->data = nc_p_Bracket_qq(p,q); // p will be destroyed!
+        res->data = nc_p_Bracket_qq(p,q, currRing); // p will be destroyed!
       }
     }

kernel/kutil.cc

@@ -1559 +1559 @@
              // generalized prod-crit for lie-type
              strat->cp++;
-             Lp.p = nc_p_Bracket_qq(pCopy(p),strat->S[i]);
+             Lp.p = nc_p_Bracket_qq(pCopy(p),strat->S[i], currRing);
          }
          else
@@ -7336 +7336 @@
 //             // generalized prod-crit for lie-type
 //             strat->cp++;
-//             Lp.p = nc_p_Bracket_qq(pCopy(p),q);
+//             Lp.p = nc_p_Bracket_qq(pCopy(p),q, currRing);
 //         }
 //         else

libpolys/polys/nc/nc.h

@@ -275 +275 @@
 
 /* brackets: p will be destroyed... */
-poly nc_p_Bracket_qq(poly p, const poly q);
-
+poly nc_p_Bracket_qq(poly p, const poly q, const ring r);
 
 static inline poly nc_ReduceSpoly(const poly p1, poly p2, const ring r)