Changeset 275397 in git for Singular/matpol.cc

Timestamp:

Apr 8, 1998, 6:04:32 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

43ad8d3a0bac24e78153444638b76171714c3860

Parents:

af191b958ee3fe3243b1c9364cbf7700930e02ba

Message:

* hannes: fixes in kstdfac.cc kutil.cc kstd[12].cc


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

File:

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

Singular/matpol.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: matpol.cc,v 1.9 1998-02-18 11:35:31 siebert Exp $ */
+/* $Id: matpol.cc,v 1.10 1998-04-08 16:04:29 Singular Exp $ */
 
 /*
@@ -68 +68 @@
     rc->m = (polyset)Alloc0(s);
 #endif
-    if (rc->m==NULL)
-    {
-      Werror("internal error: creating matrix[%d][%d]",r,c);
-      return NULL;
-    }
+    //if (rc->m==NULL)
+    //{
+    //  Werror("internal error: creating matrix[%d][%d]",r,c);
+    //  return NULL;
+    //}
   }
   return rc;
@@ -725 +725 @@
   /* fill in the powers of x_var=h*/
   poly h=pOne();
-  for(k=1;k<=r; k++)
+  for(k=r;k>0; k--)
   {
     MATELEM(m,k,k*(p+1))=pOne();
   }
-  for(l=1;l<=p; l++)
+  for(l=p;l>0; l--)
   {
     pSetExp(h,var,l);
     pSetm(h);
-    for(k=1;k<=r; k++)
+    for(k=r;k>0; k--)
     {
       MATELEM(m,k,k*(p+1)-l)=pCopy(h);
@@ -892 +892 @@
 row_col_weight::~row_col_weight()
 {
-  if (ym)
+  if (ym!=0)
   {
     Free((ADDRESS)wcol, yn*sizeof(float));