Changeset a29995 in git for Singular/polys0.cc

Timestamp:

Nov 28, 2000, 12:50:56 PM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

718add5b6d1cfeccd8e65b50d42db0fd515f126a

Parents:

5e16f9ae5b8928fda665888d965340387f46c85c

Message:

* towards tailRings for local case


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

File:

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

Singular/polys0.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys0.cc,v 1.17 2000-10-26 16:31:38 obachman Exp $ */
+/* $Id: polys0.cc,v 1.18 2000-11-28 11:50:56 obachman Exp $ */
 
 /*
@@ -170 +170 @@
   }
 }
+#if 1
 void p_wrp(poly p, ring lmRing, ring tailRing)
 {
@@ -188 +189 @@
   }
 }
+#else
+// this is for use with buckets
+void p_wrp(poly p, ring lmRing, ring tailRing)
+{
+  poly r;
+
+  if (p==NULL) PrintS("NULL");
+  else if (pNext(p)==NULL) p_Write0(p, lmRing);
+  else
+  {
+    r = pNext(p);
+    pNext(p) = NULL;
+    p_Write0(p, lmRing, tailRing);
+    pNext(p) = r;
+  }
+}
+#endif