Changeset 39457c in git for Singular/iparith.cc

Timestamp:

Sep 15, 2011, 6:30:41 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

e8521255a86e408ae951c170cf03b353c321be74

Parents:

35e86e4b8846ae589996e378f75e28b2aa48605e

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-09-15 18:30:41+02:00

git-committer:

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

Message:

fix: Module2Matrix/Matrix2Module: less dep. on currRing

File:

• Singular/iparith.cc (modified) (4 diffs)

Singular/iparith.cc

@@ -2747 +2747 @@
         rChangeCurrRing(r);
         matrix  m = (matrix)IDDATA(w);
-        ideal   Q = idMatrix2Module(mp_Copy(m, currRing));
+        ideal   Q = id_Matrix2Module(mp_Copy(m, currRing),currRing);
         rChangeCurrRing(save);
         ideal   S = idOppose(r,Q,currRing);
         id_Delete(&Q, r);
-        res->data = idModule2Matrix(S);
+        res->data = id_Module2Matrix(S,currRing);
         res->rtyp = argtype;
         break;
@@ -3669 +3669 @@
   if (sm_CheckDet((ideal)m,m->cols(),TRUE, currRing))
   {
-    ideal I=idMatrix2Module(mp_Copy(m, currRing));
+    ideal I=id_Matrix2Module(mp_Copy(m, currRing),currRing);
     p=sm_CallDet(I, currRing);
     idDelete(&I);
@@ -3699 +3699 @@
   if (sm_CheckDet(I,IDELEMS(I),FALSE, currRing))
   {
-    matrix m=idModule2Matrix(idCopy(I));
+    matrix m=id_Module2Matrix(id_Copy(I,currRing),currRing);
     p=singclap_det(m,currRing);
     idDelete((ideal *)&m);
@@ -6407 +6407 @@
   }
   else if(v1->Typ()==IDEAL_CMD||v1->Typ()==MATRIX_CMD)
-    L->m[1].data=(void *)idModule2Matrix(R);
+    L->m[1].data=(void *)id_Module2Matrix(R,currRing);
   else
   {