Changeset 42af82e in git

Timestamp:

May 26, 1999, 4:16:50 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

2f15859f9d82f734fb754fef4da141107ae571f2

Parents:

0dee965e6435c14eae946a84cbde644ad0008205

Message:

* imap, and pOrdPolyInsertSetm do addition starting with the tail


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

File:

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

Singular/polys1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys1.cc,v 1.21 1999-04-29 11:38:55 Singular Exp $ */
+/* $Id: polys1.cc,v 1.22 1999-05-26 14:16:50 obachman Exp $ */
 
 /*
@@ -999 +999 @@
   poly qq,result = NULL;
 
+#if 0
   while (p != NULL)
   {
@@ -1008 +1009 @@
     pTest(result);
   }
+#else
+  while (p != NULL)
+  {
+    qq = p;
+    pIter(p);
+    qq->next = result;
+    result = qq;
+    pSetm(qq);
+  }
+  p = result;
+  result = NULL;
+  while (p != NULL)
+  {
+    qq = p;
+    pIter(p);
+    qq->next = NULL;
+    result = pAdd(result, qq);
+  }
+  pTest(result);
+#endif
   return result;
 }
@@ -1073 +1094 @@
       pTest(qq);
       pTest(aq);
-      if (aq!=NULL)
-      {
-        qq=pMult(aq,qq);
-        aq=NULL;
-      }
-      result = pAdd(result,qq);
-      pTest(result);
+      if (aq!=NULL) qq=pMult(aq,qq);
+      aq = qq;
+      while (pNext(aq) != NULL) pIter(aq);
+      pNext(aq) = result;
+      aq = NULL;
+      result = qq;
     }
     else if (aq!=NULL)
@@ -1086 +1106 @@
     }
   }
+  p = result;
+  result = NULL;
+  while (p != NULL)
+  {
+    qq = p;
+    pIter(p);
+    qq->next = NULL;
+    result = pAdd(result, qq);
+  }
+  pTest(result);
   return result;
 }