Changeset 2956e79 in git for libpolys/polys/clapsing.cc
- Timestamp:
- Jul 19, 2018, 2:25:58 PM (5 years ago)
- Branches:
- (u'spielwiese', '873fc1222e995d7cb33f79d8f1792ce418c8c72c')
- Children:
- f4f135ee4889c610adf6c8d7ccea7e4e95f97b2a
- Parents:
- 73ca8f3b53ec9e30cd15da92a0bdbfcb596fd0c7
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/clapsing.cc
r73ca8f3 r2956e79 892 892 if (n==0) 893 893 { 894 res->m[0]=p_One(r);894 if (res->m[0]==NULL) res->m[0]=p_One(r); 895 895 // (**v)[0]=1; is already done 896 896 } … … 916 916 //PrintS("S:");p_Write(f,r);PrintLn(); 917 917 // use factory/libfac in general ============================== 918 Variable dummy(-1); prune(dummy); // remove all (tmp.) extensions 918 919 Off(SW_RATIONAL); 919 920 On(SW_SYMMETRIC_FF); … … 991 992 L= factorize (F, a); 992 993 } 994 prune(a); 993 995 } 994 996 else … … 1202 1204 errorreported=save_errorreported; 1203 1205 notImpl: 1206 prune(a); 1204 1207 if (res==NULL) 1205 1208 WerrorS( feNotImplemented ); … … 1474 1477 p_Cleardenom(p, r); 1475 1478 L.append(convSingPFactoryP(p,r)); 1476 1479 p_Delete(&p,r); 1477 1480 } 1478 1481 } … … 1490 1493 p_Cleardenom(p, r); 1491 1494 L.append(convSingTrPFactoryP(p,r)); 1492 1495 p_Delete(&p,r); 1493 1496 } 1494 1497 }
Note: See TracChangeset
for help on using the changeset viewer.