Changeset 8e48589 in git for kernel/ringgb.cc
- Timestamp:
- Jun 9, 2006, 12:33:36 AM (17 years ago)
- Branches:
- (u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')
- Children:
- bf5ca41d431c02702bfca8a4bd8b6e9c0908d8d7
- Parents:
- 69bc59eb8e7fb6562032a5586959c2754a881ddc
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/ringgb.cc
r69bc59 r8e48589 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ringgb.cc,v 1. 8 2006-06-08 21:56:54wienand Exp $ */4 /* $Id: ringgb.cc,v 1.9 2006-06-08 22:33:36 wienand Exp $ */ 5 5 /* 6 6 * ABSTRACT: ringgb interface … … 127 127 pSetCoeff0(fm, cg); 128 128 pSetCoeff0(gm, cf); // and now, m1 * LT(p1) == m2 * LT(p2) 129 return(pSub(pMult_mm(f, fm), pMult_mm(g, gm))); 129 poly sp = pSub(pMult_mm(f, fm), pMult_mm(g, gm)); 130 pDelete(&fm); 131 pDelete(&gm); 132 return(sp); 130 133 } 131 134 … … 138 141 // printPolyMsg("m2=", m2, ""); 139 142 // PrintLn(); 140 return pSub(p_Mult_mm(f, m1, r), p_Mult_mm(g, m2, r)); 143 poly sp = pSub(p_Mult_mm(f, m1, r), pp_Mult_mm(g, m2, r)); 144 pDelete(&m1); 145 pDelete(&m2); 146 return(sp); 141 147 } 142 148 … … 154 160 // wrp(G->m[i]); 155 161 // PrintLn(); 156 h = spolyRing2toM(h, pCopy(G->m[i]), r);162 h = spolyRing2toM(h, G->m[i], r); 157 163 // PrintS("=> h="); 158 164 // wrp(h);
Note: See TracChangeset
for help on using the changeset viewer.