Changeset a780be in git

Timestamp:

Nov 20, 2006, 12:10:39 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

840876f3cccda6e6038fa2968ca844c02edc61c8

Parents:

59b9615870d42298bc425c97176a54ee9c4e3b9d

Message:

*hannes: bugfix


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

File:

• kernel/matpol.cc (modified) (2 diffs)

kernel/matpol.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: matpol.cc,v 1.12 2006-11-20 09:38:35 Singular Exp $ */
+/* $Id: matpol.cc,v 1.13 2006-11-20 11:10:39 Singular Exp $ */
 
 /*
@@ -150 +150 @@
   int k, n = a->nrows, m = a->ncols;
 
-  if (p!=NULL)
-  {
-    pNormalize(p);
-    for (k=m*n-1; k>0; k--)
-    {
-      if (a->m[k]!=NULL)
-        a->m[k] = pMult(a->m[k], pCopy(p));
-    }
-    a->m[0] = pMult(a->m[0], p);
-  }
-  else
-  {
-    for (k=m*n-1; k>=0; k--)
-    {
-      pDelete(&a->m[k]);
-    }
-  }
+  pNormalize(p);
+  for (k=m*n-1; k>0; k--)
+  {
+    if (a->m[k]!=NULL)
+      a->m[k] = pMult(a->m[k], pCopy(p));
+  }
+  a->m[0] = pMult(a->m[0], p);
   return a;
 }