Changeset df3483a in git for Singular/spSpolyLoop.cc

Timestamp:

Apr 30, 1998, 5:27:25 PM (26 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'b324714bf5073469800caef737deba1366fbd81f')

Children:

24189c4982473a71947501ca9125a109ab40e937

Parents:

1d142c32d3b504db8d82f4aa3104fb6643914101

Message:

* small change in structure of spolyloop


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

File:

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

Singular/spSpolyLoop.cc

@@ -33 +33 @@
 { 
   poly a = monom,                         // collects the result
-       b = pNew(),                        // stores a1*monom
+       b = NULL,                        // stores a1*monom
        c;                                 // used for temporary storage
   number tm   = pGetCoeff(monom),         // coefficient of monom
@@ -42 +42 @@
   if (a2==NULL) goto Finish; // we are done if a2 is 0
 
+  b = pNew();
   pCopyAddFast0(b, a1, monom);  // now a2 != NULL -- set up b
 
@@ -66 +67 @@
     nDelete(&tb);
     pIter(a1);
-    if (a2 == NULL || a1 == NULL) goto Finish; // are we done ?
+    if (a1 == NULL || a2 == NULL) goto Finish; // are we done ?
     pCopyAddFast0(b, a1, monom); // No! So, get new b = a1*monom
     goto Top;
@@ -83 +84 @@
       a = pNext(a) = b;       // append b to result and advance a1
       pIter(a1);
+      if (a1 == NULL) // are we done?
+      {
+        b = NULL;
+        goto Finish; 
+      }
       b = pNew();
-      if (a1 == NULL) goto Finish; // are we done?
       pCopyAddFast0(b, a1, monom); // No! So, update b = a1*monom
       goto Top;
@@ -95 +100 @@
      spGMultCopyX(a1, monom, a, tneg, spNoether);
    nDelete(&tneg);
-   pFree1(b);
+   if (b != NULL) pFree1(b);
 }