Changeset 41e149 in git

Timestamp:

Apr 8, 1998, 2:42:17 PM (25 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

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

Children:

b994f697e8945275c9cdcc48299751c3a7c02a1a

Parents:

e3cab3223ca48edb3c313973c3907bd9a256f319

Message:

no special pDivisibleBy for macintosh


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

Location:

Singular

Files:

• polys.cc (modified) (2 diffs)
• polys.h (modified) (2 diffs)

Singular/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.20 1998-03-31 12:18:45 obachman Exp $ */
+/* $Id: polys.cc,v 1.21 1998-04-08 12:42:17 pohl Exp $ */
 
 /*
@@ -1718 +1718 @@
 
 /*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

Singular/polys.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.h,v 1.11 1998-03-23 22:51:05 obachman Exp $ */
+/* $Id: polys.h,v 1.12 1998-04-08 12:41:37 pohl Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate polynomials
@@ -213 +213 @@
 // returns TRUE, if leading monom of a divides leading monom of b
 // i.e., if there exists a expvector c > 0, s.t. b = a + c
-#if defined(macintosh) 
-BOOLEAN   pDivisibleBy(poly a, poly b);
-#else
 #define pDivisibleBy(a, b)  _pDivisibleBy(a,b)
-#endif
 // like pDivisibleBy, except that it is assumed that a!=NULL
 #define pDivisibleBy1(a,b)   _pDivisibleBy1(a,b)