Changeset 2466f0d in git

Timestamp:

Sep 4, 1998, 6:06:30 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')

Children:

b95c835f584107cff0126297f44e3d7339280f29

Parents:

e974a23c09bd2c265c9c90d6d44e56270832bb6f

Message:

* hannes: fixed a bug in Bareiss: cannot use nIntDiv,
   ( matrix may contain rationals)


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

File:

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

Singular/matpol.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: matpol.cc,v 1.17 1998-08-26 15:57:52 Singular Exp $ */
+/* $Id: matpol.cc,v 1.18 1998-09-04 16:06:30 Singular Exp $ */
 
 /*
@@ -408 +408 @@
   }
   Bareiss->mpSaveArray();
+  idTest((ideal)re);
   delete Bareiss;
   return re;
@@ -504 +505 @@
   {
     p = pCopy(MATELEM(s,1,i));
-    pTest(p);
     for (j=i-1; j>=1; j--)
     {
@@ -1052 +1052 @@
           q2 = pMult(q1, pCopy(piv));
         }
-        if (q2 && div)
+        if ((q2!=NULL) && div)
           q2 = mpDivide(q2, div);
         a[jj] = q2;
@@ -1410 +1410 @@
         pSetm(r);
       }
-      y = nIntDiv(pGetCoeff(r),x);
+      y = nDiv(pGetCoeff(r),x);
       pSetCoeff(r,y);
       pIter(r);
     } while (r != NULL);
+    //pTest(a);
     return a;
   }
@@ -1444 +1445 @@
   } while (r!=NULL);
   pFree1(h0);
+  //pTest(a);
   return a;
 }