Changeset df3483a in git for Singular/spSpolyLoop.cc
- Timestamp:
- Apr 30, 1998, 5:27:25 PM (26 years ago)
- Branches:
- (u'spielwiese', 'b324714bf5073469800caef737deba1366fbd81f')
- Children:
- 24189c4982473a71947501ca9125a109ab40e937
- Parents:
- 1d142c32d3b504db8d82f4aa3104fb6643914101
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/spSpolyLoop.cc
r1d142c rdf3483a 33 33 { 34 34 poly a = monom, // collects the result 35 b = pNew(), // stores a1*monom35 b = NULL, // stores a1*monom 36 36 c; // used for temporary storage 37 37 number tm = pGetCoeff(monom), // coefficient of monom … … 42 42 if (a2==NULL) goto Finish; // we are done if a2 is 0 43 43 44 b = pNew(); 44 45 pCopyAddFast0(b, a1, monom); // now a2 != NULL -- set up b 45 46 … … 66 67 nDelete(&tb); 67 68 pIter(a1); 68 if (a 2 == NULL || a1== NULL) goto Finish; // are we done ?69 if (a1 == NULL || a2 == NULL) goto Finish; // are we done ? 69 70 pCopyAddFast0(b, a1, monom); // No! So, get new b = a1*monom 70 71 goto Top; … … 83 84 a = pNext(a) = b; // append b to result and advance a1 84 85 pIter(a1); 86 if (a1 == NULL) // are we done? 87 { 88 b = NULL; 89 goto Finish; 90 } 85 91 b = pNew(); 86 if (a1 == NULL) goto Finish; // are we done?87 92 pCopyAddFast0(b, a1, monom); // No! So, update b = a1*monom 88 93 goto Top; … … 95 100 spGMultCopyX(a1, monom, a, tneg, spNoether); 96 101 nDelete(&tneg); 97 pFree1(b);102 if (b != NULL) pFree1(b); 98 103 } 99 104
Note: See TracChangeset
for help on using the changeset viewer.