Changeset 46008c in git

Timestamp:

Sep 24, 2011, 10:00:02 AM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

04eb121304780dd95e16025fdd49d7c60cd694e6

Parents:

6179c1fcdd2c1b21e040bdac6db37f0b3e0128b9

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-09-24 10:00:02+02:00

git-committer:

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

Message:

fix idMinors (Tst/Old/err3.tst)

File:

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

kernel/ideals.cc

@@ -1896 +1896 @@
   matrix b;
   ideal result,h;
-  ring origR;
+  ring origR=currRing;
   ring tmpR;
   long bound;
@@ -1905 +1905 @@
     return NULL;
   }
-  h = id_Matrix2Module(mp_Copy(a,currRing),currRing);
-  bound = sm_ExpBound(h,c,r,ar,currRing);
+  h = id_Matrix2Module(mp_Copy(a,origR),origR);
+  bound = sm_ExpBound(h,c,r,ar,origR);
   idDelete(&h);
   tmpR=sm_RingChange(origR,bound);
@@ -1913 +1913 @@
   {
     if (a->m[i])
-      b->m[i] = prCopyR(a->m[i],origR,currRing);
+      b->m[i] = prCopyR(a->m[i],origR,tmpR);
   }
   if (R!=NULL)
   {
-    R = idrCopyR(R,origR,currRing);
+    R = idrCopyR(R,origR,tmpR);
     //if (ar>1) // otherwise done in mpMinorToResult
     //{
@@ -1926 +1926 @@
   }
   result=idInit(32,1);
-  if(ar>1) mp_RecMin(ar-1,result,elems,b,r,c,NULL,R,currRing);
-  else mp_MinorToResult(result,elems,b,r,c,R,currRing);
+  if(ar>1) mp_RecMin(ar-1,result,elems,b,r,c,NULL,R,tmpR);
+  else mp_MinorToResult(result,elems,b,r,c,R,tmpR);
   idDelete((ideal *)&b);
   if (R!=NULL) idDelete(&R);