Changeset a96818 in git for Singular/iparith.cc

Timestamp:

Oct 26, 2005, 12:42:40 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'd0474371d8c5d8068ab70bfb42719c97936b18a6')

Children:

73054bb8a1f71c689b22c662c08b762f3913c906

Parents:

2971ea6f2b7ed7331e23db7e6ddfb028a2239a36

Message:

*hannes: code simplified


git-svn-id: file:///usr/local/Singular/svn/trunk@8750 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.382 2005-10-20 12:19:59 Singular Exp $ */
+/* $Id: iparith.cc,v 1.383 2005-10-26 10:42:40 Singular Exp $ */
 
 /*
@@ -1212 +1212 @@
   poly p=(poly)u->Data();
   poly q=(poly)v->Data();
-  if (p==NULL)
-  {
-    res->data=(char *)(q==NULL);
-  }
-  else
-  {
-    if (q==NULL) res->data=(char *)FALSE;
-    else
-    {
-      int r=pCmp(p,q);
-      if (r==0)
-      {
-        p=pSub(pCopy(p),pCopy(q));
-        res->data = (char *) (p==NULL);
-        pDelete(&p);
-      }
-      else
-        res->data = (char *) FALSE;
-    }
-  }
+  res->data = (char *) (pEqualPolys(p,q));
   jjEQUAL_REST(res,u,v);
   return FALSE;