Changeset dcff1e in git

Timestamp:

Feb 16, 2002, 2:49:03 PM (22 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

46de4437cb678608f5cba0c2fed378360b871549

Parents:

5ca9807ac2107d0a6dda03f38cbf50ee432d0a11

Message:

*mschulze: missing pSetm


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

Location:

Singular

Files:

• eigenval.cc (modified) (2 diffs)
• gms.cc (modified) (2 diffs)

Singular/eigenval.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: eigenval.cc,v 1.6 2002-02-16 10:56:14 mschulze Exp $ */
+/* $Id: eigenval.cc,v 1.7 2002-02-16 13:49:03 mschulze Exp $ */
 /*
 * ABSTRACT: eigenvalues of constant square matrices
@@ -242 +242 @@
   poly t=pOne();
   pSetExp(t,1,1);
+  pSetm(t);
 
   for(int j0=1,j=2,k=0;j<=n+1;j0=j,j++)

Singular/gms.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: gms.cc,v 1.4 2002-02-16 11:00:46 mschulze Exp $ */
+/* $Id: gms.cc,v 1.5 2002-02-16 13:49:03 mschulze Exp $ */
 /*
 * ABSTRACT: Gauss-Manin system normal form
@@ -49 +49 @@
         p->m[k]=pSub(p->m[k],pMult(pCopy(d),pCopy(g->m[j])));
         pSetExp(d,1,pGetExp(d,1)+1);
+        pSetm(d);
         for(i=0;i<MATROWS(B);i++)
           p->m[k]=pAdd(p->m[k],