Changeset f9bfec in git

Timestamp:

May 5, 2000, 11:46:57 AM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

ef01241fece3236b762161e59b6bde349a6396bf

Parents:

fdd95cae3fd09e17105ef495d37154b1f2dd43fe

Message:

*hannes: pComparePolys optimized


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

File:

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

Singular/polys1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys1.cc,v 1.36 2000-04-11 15:01:58 Singular Exp $ */
+/* $Id: polys1.cc,v 1.37 2000-05-05 09:46:57 Singular Exp $ */
 
 /*
@@ -1432 +1432 @@
   int i;
 
+  if (!pEqual(p1,p2)) //compare leading mons
+      return FALSE;
+  if ((pNext(p1)==NULL) && (pNext(p2)!=NULL))
+     return FALSE;
+  if ((pNext(p2)==NULL) && (pNext(p1)!=NULL))
+     return FALSE;
   if (pLength(p1) != pLength(p2))
     return FALSE;