Changeset 9489ed in git

Timestamp:

Mar 17, 1999, 3:26:28 PM (25 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

65d1bae376754343caaf703c552341ec79bc18c7

Parents:

1471a87c88809d18580f881efb9a559f31d0baa0

Message:

jjHIGHCORNER_M


git-svn-id: file:///usr/local/Singular/svn/trunk@2951 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.138 1999-03-16 15:33:09 Singular Exp $ */
+/* $Id: iparith.cc,v 1.139 1999-03-17 14:26:28 pohl Exp $ */
 
 /*
@@ -2548 +2548 @@
     {
       // now po!=NULL, p!=NULL
-      int d=(pFDeg(po)+(*w)[pGetComp(po)-1] - pFDeg(p)-(*w)[i-1]);
+      int d=(pFDeg(po)-(*w)[pGetComp(po)-1] - pFDeg(p)+(*w)[i-1]);
       if (d==0)
-        d=pComp0(p,po);
+        d=pComp0(po,p);
       if (d > 0)
       {
-        pDelete(&po); po=p;
+        pDelete(&p);
       }
       else // (d < 0)
       {
-        pDelete(&p);
+        pDelete(&po); po=p;
       }
     }