Changeset 7bd1071 in git

Timestamp:

Mar 14, 2001, 11:25:11 AM (22 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

241f585373c4b203abffc9f55d4310d41b68d7be

Parents:

5ff207772cfd6335d825ee5521df53ab405628e0

Message:

*mschulze: empty ideal = NULL


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

File:

• Singular/eigenval.cc (modified) (5 diffs)

Singular/eigenval.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: eigenval.cc,v 1.1 2001-03-05 17:31:40 mschulze Exp $ */
+/* $Id: eigenval.cc,v 1.2 2001-03-14 10:25:11 mschulze Exp $ */
 /*
 * ABSTRACT: eigenvalues of constant square matrices
@@ -114 +114 @@
   ideal ee=(ideal)l->m[0].data;
   intvec *mm=(intvec*)l->m[1].data;
-  int n=IDELEMS(ee);
+  int n=0;
+  if(ee!=NULL)
+    n=IDELEMS(ee);
   for(int i=n-1;i>=0;i--)
   {
@@ -120 +122 @@
     {
       (*mm)[i]+=m0;
-      return;
-    }
-  }
-  ideal e=idInit(n+1,0);
+      return l;
+    }
+  }
+  ideal e=idInit(n+1,1);
   for(int i=n-1;i>=0;i--)
   {
@@ -131 +133 @@
   e->m[n]=e0;
   l->m[0].data=e;
-  idDelete(&ee);
+  if(ee!=NULL)
+    idDelete(&ee);
   mm->resize(n+1);
   (*mm)[n]=m0;
@@ -163 +166 @@
   l->Init(2);
   l->m[0].rtyp=IDEAL_CMD;
-  l->m[0].data=idInit(0,0);
+  l->m[0].data=NULL;
   l->m[1].rtyp=INTVEC_CMD;
   l->m[1].data=new intvec;