Changeset 76352f9 in git for Singular/polys.cc

Timestamp:

May 6, 1998, 2:44:08 PM (25 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')

Children:

e23540a2e5ead2215d0294f458da29eb5d72e4fc

Parents:

6f5ad67d98f21bbb43450bb71d0c20643b46ad9d

Message:

pDivisibleBy also for macintosh inline


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

File:

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

Singular/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.25 1998-04-24 16:51:43 Singular Exp $ */
+/* $Id: polys.cc,v 1.26 1998-05-06 12:44:08 pohl Exp $ */
 
 /*
@@ -1721 +1721 @@
 
 /*2
-* returns TRUE if the head term of b is a multiple of the head term of a
-*/
-#if defined(macintosh)
-BOOLEAN pDivisibleBy(poly a, poly b)
-{
-  if ((a!=NULL)&&(( pGetComp(a)==0) || ( pGetComp(a) ==  pGetComp(b))))
-  {
-    int i=pVariables;
-    Exponent_t *e1=&( pGetExp(a,1));
-    Exponent_t *e2=&( pGetExp(b,1));
-    if ((*e1) > (*e2)) return FALSE;
-    do
-    {
-      i--;
-      if (i == 0) return TRUE;
-      e1++;
-      e2++;
-     } while ((*e1) <= (*e2));
-   }
-   return FALSE;
-}
-#endif
-
-
-/*2
 * assumes that the head term of b is a multiple of the head term of a
 * and return the multiplicant *m