Changeset f7920ef in git

Timestamp:

Mar 15, 1999, 10:20:59 AM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

93be5f5644e16f17dc471b12e7f4af247d395f99

Parents:

0a8363710624cb96eb31b5c8f73c2a20d42f0c18

Message:

*hannes: fixed sign bug in HIGHCORNER_M


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

File:

• Singular/iparith.cc (modified) (2 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.135 1999-03-12 10:16:21 Singular Exp $ */
+/* $Id: iparith.cc,v 1.136 1999-03-15 09:20:59 Singular Exp $ */
 
 /*
@@ -2535 +2535 @@
     }
     if (po==NULL)
+    {
       po=p;
+    }
     else
     {
       // now po!=NULL, p!=NULL
-      int d=(pFDeg(po)+(*module_w)[pGetComp(po)-1] - pFDeg(p)+(*module_w)[i-1]);
+      int d=(pFDeg(po)+(*module_w)[pGetComp(po)-1] - pFDeg(p)-(*module_w)[i-1]);
       if (d==0)
-        d=pComp0(po,p);
-      if (d < 0)
+        d=pComp0(p,po);
+      if (d > 0)
       {
         pDelete(&po); po=p;
       }
-      else // (d > 0)
+      else // (d < 0)
       {
         pDelete(&p);