Changeset 48aa42 in git for Singular/kInline.cc
- Timestamp:
- Dec 14, 2000, 5:38:55 PM (23 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- de99f1185094a2e1b309d4e78f838d6692f38f51
- Parents:
- d84b58726ff416e01f33ee72cac5d136ef2515c5
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/kInline.cc
rd84b58 r48aa42 7 7 * Author: obachman (Olaf Bachmann) 8 8 * Created: 8/00 9 * Version: $Id: kInline.cc,v 1.1 8 2000-11-28 11:50:51obachman Exp $9 * Version: $Id: kInline.cc,v 1.19 2000-12-14 16:38:49 obachman Exp $ 10 10 *******************************************************************/ 11 11 #ifndef KINLINE_CC … … 533 533 } 534 534 535 KINLINE poly sLObject::LmExtractAndIter() 536 { 537 poly ret = GetLmTailRing(); 538 poly pn; 539 540 assume(p != NULL || t_p != NULL); 541 542 if (bucket != NULL) 543 { 544 pn = kBucketExtractLm(bucket); 545 if (pn == NULL) 546 kBucketDestroy(&bucket); 547 } 548 else 549 { 550 pn = pNext(ret); 551 } 552 pLength--; 553 pNext(ret) = NULL; 554 if (p != NULL && t_p != NULL) 555 p_LmFree(p, currRing); 556 557 Set(pn, tailRing); 558 return ret; 559 } 560 535 561 KINLINE poly sLObject::CanonicalizeP() 536 562 { … … 548 574 } 549 575 576 KINLINE poly sLObject::GetTP() 577 { 578 kTest_L(this); 579 poly tp = GetLmTailRing(); 580 assume(tp != NULL); 581 582 if (bucket != NULL) 583 { 584 kBucketClear(bucket, &pNext(tp), &pLength); 585 kBucketDestroy(&bucket); 586 pLength++; 587 } 588 return tp; 589 } 590 591 550 592 KINLINE poly sLObject::GetP(omBin lmBin = NULL) 551 593 { … … 871 913 /*************************************************************** 872 914 * 915 * Misc things 916 * 917 ***************************************************************/ 918 KINLINE int ksReducePolyTail(LObject* PR, TObject* PW, LObject* Red) 919 { 920 BOOLEAN ret; 921 number coef; 922 923 assume(PR->GetLmCurrRing() != PW->GetLmCurrRing()); 924 ret = ksReducePoly(Red, PW, NULL, &coef); 925 926 if (!ret) 927 { 928 if (! n_IsOne(coef, currRing)) 929 PR->Mult_nn(coef); 930 931 n_Delete(&coef, currRing); 932 } 933 return ret; 934 } 935 936 /*************************************************************** 937 * 873 938 * Routines for backwards-Compatibility 874 939 * … … 919 984 } 920 985 986 921 987 #endif // defined(KINLINE) || defined(KUTIL_CC) 922 988 #endif // KINLINE_CC
Note: See TracChangeset
for help on using the changeset viewer.