Changeset 8ea869 in git

Timestamp:

Aug 3, 2011, 7:16:02 PM (13 years ago)

Author:

Burcin Erocal <burcin@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

af223b02cc71d0a13ef6b4dc8b7bc7843294331a

Parents:

9bf58f8f5de5f60734670074db331a8bc76702f4

git-author:

Burcin Erocal <burcin@erocal.org>2011-08-03 19:16:02+02:00

git-committer:

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

Message:

Fix Singular/eigenval_ip.cc.

File:

• Singular/eigenval_ip.cc (modified) (6 diffs)

Singular/eigenval_ip.cc

@@ -41 +41 @@
           int j=(int)(long)h->Data();
           res->rtyp=MATRIX_CMD;
-          res->data=(void *)evSwap(mpCopy(M),i,j);
+          res->data=(void *)evSwap(mp_Copy(M, currRing),i,j);
           return FALSE;
         }
@@ -73 +73 @@
             int k=(int)(long)h->Data();
             res->rtyp=MATRIX_CMD;
-            res->data=(void *)evRowElim(mpCopy(M),i,j,k);
+            res->data=(void *)evRowElim(mp_Copy(M, currRing),i,j,k);
             return FALSE;
           }
@@ -106 +106 @@
             int k=(int)(long)h->Data();
             res->rtyp=MATRIX_CMD;
-            res->data=(void *)evColElim(mpCopy(M),i,j,k);
+            res->data=(void *)evColElim(mp_Copy(M, currRing),i,j,k);
             return FALSE;
           }
@@ -127 +127 @@
       matrix M=(matrix)h->Data();
       res->rtyp=MATRIX_CMD;
-      res->data=(void *)evHessenberg(mpCopy(M));
+      res->data=(void *)evHessenberg(mp_Copy(M, currRing));
       return FALSE;
     }
@@ -180 +180 @@
 
       intvec *m0;
-      ideal e0=singclap_factorize(mp_DetBareiss(M,currRing)),&m0,2);
+      ideal e0=singclap_factorize(mp_DetBareiss(M,currRing),&m0,2, currRing);
       if (e0==NULL)
       {
@@ -294 +294 @@
       matrix M=(matrix)h->Data();
       res->rtyp=LIST_CMD;
-      res->data=(void *)evEigenvals(mpCopy(M));
+      res->data=(void *)evEigenvals(mp_Copy(M, currRing));
       return FALSE;
     }