Changeset d14712 in git for Singular/polys1.cc

Timestamp:

Sep 29, 1999, 12:59:43 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

4f011a3b4ee2de9e079fb1b3ff36483e9f1f0511

Parents:

c88c949ab8d0ed79f5fe01cd33e526815d5e041f

Message:

* got rid off STDTRACE, FAST_AND_DIRTY, (most) DRING, SRING, SDRING
* got rid of spoly*.* stuff


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

File:

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

Singular/polys1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys1.cc,v 1.28 1999-09-28 15:02:33 obachman Exp $ */
+/* $Id: polys1.cc,v 1.29 1999-09-29 10:59:38 obachman Exp $ */
 
 /*
@@ -77 +77 @@
   }
   return k;
+}
+
+BOOLEAN pIsMonomOf(poly p, poly m)
+{
+  if (m == NULL) return TRUE;
+  while (p != NULL)
+  {
+    if (p == m) return TRUE;
+    pIter(p);
+  }
+  return FALSE;
 }
 
@@ -478 +489 @@
           }
         }
-#ifdef SDRING
-        if(pSDRING)
-        {
-          return pPow(p,i);
-        }
-        else
-#endif
         {
           rc = pNext(p);