Changeset bcfd11a in git for libpolys/polys/monomials/maps.cc
 Timestamp:
 Mar 20, 2012, 3:33:34 PM (11 years ago)
 Branches:
 (u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
 Children:
 7e9f1298826e9e80c154aaa465935c0ba2acad38
 Parents:
 dd668fd21e0141dd6716d45d63f34e6ca84d230f
 gitauthor:
 Oleksandr Motsak <motsak@mathematik.unikl.de>20120320 15:33:34+01:00
 gitcommitter:
 Oleksandr Motsak <motsak@mathematik.unikl.de>20120323 16:06:34+01:00
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

libpolys/polys/monomials/maps.cc
rdd668f rbcfd11a 152 152 omFreeSize((ADDRESS)monoms,l*sizeof(poly)); 153 153 } 154 if (!rMinpolyIsNULL(dst_r)) result=p_MinPolyNormalize(result, dst_r); 154 155 assume(dst_r != NULL); 156 assume(dst_r>cf != NULL); 157 158 if (nCoeff_is_algExt(dst_r>cf)) 159 result = p_MinPolyNormalize(result, dst_r); 155 160 } 156 161 return result; … … 318 323 poly p_MinPolyNormalize(poly p, const ring r) 319 324 { 320 number one = n_Init(1, r>cf); 325 const coeffs C = r>cf; 326 number one = n_Init(1, C); 321 327 spolyrec rp; 322 328 … … 326 332 { 327 333 // this returns 0, if p == MinPoly 328 number product = n_Mult(p GetCoeff(p), one,r>cf);329 if ((product == NULL)(n_IsZero(product, r>cf)))330 { 331 p_LmDelete(&p, r);334 number product = n_Mult(p_GetCoeff(p, r), one, C); 335 if ((product == NULL)(n_IsZero(product, C))) 336 { 337 p_LmDelete(&p, r); 332 338 } 333 339 else 334 340 { 335 p_SetCoeff(p, product, r);341 p_SetCoeff(p, product, r); 336 342 pNext(q) = p; 337 343 q = p; … … 340 346 } 341 347 pNext(q) = NULL; 348 n_Delete(&one, C); 342 349 return rp.next; 343 350 }
Note: See TracChangeset
for help on using the changeset viewer.