Changeset 23206f4 in git

Timestamp:

Aug 3, 2010, 2:16:34 PM (14 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

7c5fba501ba861f79f965aabe0d81fc093f476b7

Parents:

790e6bcef47e5083428e4dbb9a59ce6fc1f97b6b

Message:

opt. ssiReadPoly

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

File:

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

Singular/ssiLink.cc

@@ -318 +318 @@
   j=0;
   poly ret=NULL;
+  poly prev=NULL;
   for(l=0;l<n;l++) // read n terms
   {
@@ -333 +334 @@
     p_Setm(p,D->r);
     p_Test(p,D->r);
-    ret=p_Add_q(ret,p,D->r);
+    if (ret==NULL) ret=p;
+    else           pNext(prev)=p;
+    prev=p;
  }
  return ret;
@@ -468 +471 @@
         {
           leftv h=ssiRead1(l); /*contains an exit.... */
-          if (feErrors != NULL && *feErrors != '\0')
-          {
-            // handle errors:
-            PrintS(feErrors); /* currently quite simple */
-            *feErrors = '\0';
-          }
+          if (feErrors != NULL && *feErrors != '\0')
+          {
+            // handle errors:
+            PrintS(feErrors); /* currently quite simple */
+            *feErrors = '\0';
+          }
           ssiWrite(l,h);
           h->CleanUp();
           omFreeBin(h, sleftv_bin);
         }
-        /* never reached*/
+        /* never reached*/
       }
       else if (pid>0)