Changeset 0b5e3d in git
- Timestamp:
- Mar 23, 2010, 6:21:51 PM (13 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
- Children:
- 283d86b527147bf837a6040685999a8c1f187996
- Parents:
- ed5c8d1e2dbab67d9d30ee55afe96866951bb06e
- Files:
-
- 15 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/mpsr_GetPoly.cc
red5c8d r0b5e3d 394 394 mp_failr(IMP_GetSint32Vector(link, &Ta, gNvars)); 395 395 for (i=1; i<=gNvars; i++) 396 pSetExp(pp,i , (Exponent_t)gTa[i]);396 pSetExp(pp,i , gTa[i]); 397 397 pSetm(pp); 398 398 … … 404 404 mp_failr(IMP_GetSint32Vector(link, &Ta, gNvars)); 405 405 for (i=1; i<=gNvars; i++) 406 pSetExp(pp, i, (Exponent_t)gTa[i]);406 pSetExp(pp, i, gTa[i]); 407 407 pSetm(pp); 408 408 } … … 411 411 { 412 412 mp_failr(IMP_GetSint32(link, &i)); 413 pSetExp(pp,1, (Exponent_t)i);413 pSetExp(pp,1, i); 414 414 pSetm(pp); 415 415 … … 420 420 failr(GetCoeff(link, &(pp->coef))); 421 421 mp_failr(IMP_GetSint32(link, &i)); 422 pSetExp(pp,1, (Exponent_t)i);422 pSetExp(pp,1, i); 423 423 pSetm(pp); 424 424 } … … 455 455 pSetComp(pp, gTa[0]); 456 456 for (i=1; i<n1; i++) 457 pSetExp(pp, i, (Exponent_t)gTa[i]);457 pSetExp(pp, i, gTa[i]); 458 458 pSetm(pp); 459 459 … … 466 466 pSetComp(pp, gTa[0]); 467 467 for (i=1; i<n1; i++) 468 pSetExp(pp,i, (Exponent_t)gTa[i]);468 pSetExp(pp,i, gTa[i]); 469 469 pSetm(pp); 470 470 } … … 475 475 pSetComp(pp, i); 476 476 mp_failr(IMP_GetSint32(link, &i)); 477 pSetExp(pp,1, (Exponent_t)i);477 pSetExp(pp,1, i); 478 478 pSetm(pp); 479 479 … … 486 486 pSetComp(pp, i); 487 487 mp_failr(IMP_GetSint32(link, &i)); 488 pSetExp(pp,1, (Exponent_t)i);488 pSetExp(pp,1, i); 489 489 pSetm(pp); 490 490 } -
kernel/ideals.cc
red5c8d r0b5e3d 2832 2832 ring origR; 2833 2833 sip_sring tmpR; 2834 Exponent_tbound;2834 long bound; 2835 2835 2836 2836 if((ar<=0) || (ar>r) || (ar>c)) -
kernel/kInline.cc
red5c8d r0b5e3d 936 936 937 937 int i; 938 Exponent_tx;938 long x; 939 939 m1 = p_Init(m_r); 940 940 m2 = p_Init(m_r); … … 979 979 980 980 int i; 981 Exponent_tx;982 Exponent_te1;983 Exponent_te2;984 Exponent_ts;981 long x; 982 long e1; 983 long e2; 984 long s; 985 985 m1 = p_Init(tailRing); 986 986 m2 = p_Init(tailRing); -
kernel/kbuckets.cc
red5c8d r0b5e3d 1013 1013 // Hmm... for now I'm too lazy to implement those independent of currRing 1014 1014 // But better declare it extern than including polys.h 1015 extern void pTakeOutComp(poly *p, Exponent_tcomp, poly *q, int *lq);1016 void pDecrOrdTakeOutComp(poly *p, Exponent_tcomp, long order,1015 extern void pTakeOutComp(poly *p, long comp, poly *q, int *lq); 1016 void pDecrOrdTakeOutComp(poly *p, long comp, long order, 1017 1017 poly *q, int *lq); 1018 1018 1019 1019 void kBucketTakeOutComp(kBucket_pt bucket, 1020 Exponent_tcomp,1020 long comp, 1021 1021 poly *r_p, int *l) 1022 1022 { … … 1053 1053 1054 1054 void kBucketDecrOrdTakeOutComp(kBucket_pt bucket, 1055 Exponent_tcomp, long order,1055 long comp, long order, 1056 1056 poly *r_p, int *l) 1057 1057 { -
kernel/kbuckets.h
red5c8d r0b5e3d 97 97 98 98 void kBucketTakeOutComp(kBucket_pt bucket, 99 Exponent_tcomp,99 long comp, 100 100 poly *p, int *l); 101 101 … … 105 105 // m1 >= m2 ==> pGetOrder(m1) >= pGetOrder(m2) 106 106 void kBucketDecrOrdTakeOutComp(kBucket_pt bucket, 107 Exponent_tcomp, long order,107 long comp, long order, 108 108 poly *p, int *l); 109 109 -
kernel/kspoly.cc
red5c8d r0b5e3d 403 403 { 404 404 poly a1 = pNext(p1), a2 = pNext(p2); 405 Exponent_tc1=p_GetComp(p1, currRing),c2=p_GetComp(p2, currRing);406 Exponent_tc;405 long c1=p_GetComp(p1, currRing),c2=p_GetComp(p2, currRing); 406 long c; 407 407 poly m1,m2; 408 408 number t1 = NULL,t2 = NULL; -
kernel/kutil.cc
red5c8d r0b5e3d 6360 6360 unsigned long l = 0; 6361 6361 int i; 6362 Exponent_te;6362 long e; 6363 6363 6364 6364 assume(strat->tailRing == currRing); -
kernel/p_polys.cc
red5c8d r0b5e3d 549 549 { 550 550 p_CheckPolyRing(p, r); 551 Exponent_tk= p_GetComp(p, r);551 long k= p_GetComp(p, r); 552 552 int ll=1; 553 553 … … 625 625 { 626 626 p_CheckPolyRing(p, r); 627 Exponent_tk= p_GetComp(p, r);627 long k= p_GetComp(p, r); 628 628 long o = r->pFDeg(p, r); 629 629 int ll=1; … … 655 655 { 656 656 p_CheckPolyRing(p, r); 657 Exponent_tk= p_GetComp(p, r);657 long k= p_GetComp(p, r); 658 658 int ll=1; 659 659 long t,max; … … 725 725 assume(r->pFDeg == pDeg); 726 726 p_CheckPolyRing(p, r); 727 Exponent_tk= p_GetComp(p, r);727 long k= p_GetComp(p, r); 728 728 int ll=1; 729 729 long t,max; … … 789 789 { 790 790 p_CheckPolyRing(p, r); 791 Exponent_tk= p_GetComp(p, r);791 long k= p_GetComp(p, r); 792 792 int ll=1; 793 793 long t,max; … … 852 852 { 853 853 p_CheckPolyRing(p, r); 854 Exponent_tk= p_GetComp(p, r);854 long k= p_GetComp(p, r); 855 855 int ll=1; 856 856 long t,max; -
kernel/polys-impl.cc
red5c8d r0b5e3d 62 62 63 63 64 static inline unsigned long GetBitFields( Exponent_te,64 static inline unsigned long GetBitFields(long e, 65 65 unsigned int s, unsigned int n) 66 66 { … … 72 72 { 73 73 assume(s+i < BIT_SIZEOF_LONG); 74 if (e > ( Exponent_t) i) ev |= Sy_bit_L(s+i);74 if (e > (long) i) ev |= Sy_bit_L(s+i); 75 75 else break; 76 76 i++; -
kernel/polys-impl.h
red5c8d r0b5e3d 35 35 #endif 36 36 37 typedef Exponent_t* Exponent_pt;38 37 struct spolyrec 39 38 { -
kernel/polys.cc
red5c8d r0b5e3d 242 242 return s_save; 243 243 } 244 p_AddExp(rc,1+j, ( Exponent_t)i, r);244 p_AddExp(rc,1+j, (long)i, r); 245 245 } 246 246 else … … 340 340 if (ii!=0) 341 341 { 342 pAddExp(q,varnum, ( Exponent_t)ii);342 pAddExp(q,varnum, (long)ii); 343 343 pSetm(q); 344 344 } … … 531 531 // Splits *p into two polys: *q which consists of all monoms with 532 532 // component == comp and *p of all other monoms *lq == pLength(*q) 533 void pTakeOutComp(poly *r_p, Exponent_tcomp, poly *r_q, int *lq)533 void pTakeOutComp(poly *r_p, long comp, poly *r_q, int *lq) 534 534 { 535 535 spolyrec pp, qq; … … 579 579 } 580 580 581 void pDecrOrdTakeOutComp(poly *r_p, Exponent_tcomp, long order,581 void pDecrOrdTakeOutComp(poly *r_p, long comp, long order, 582 582 poly *r_q, int *lq) 583 583 { -
kernel/polys.h
red5c8d r0b5e3d 132 132 133 133 // Gets a copy of (resp. set) the exponent vector, where e is assumed 134 // to point to (r->N +1)*sizeof( Exponent_t) memory. Exponents are134 // to point to (r->N +1)*sizeof(long) memory. Exponents are 135 135 // filled in as follows: comp, e_1, .., e_n 136 136 #define pGetExpV(p, e) p_GetExpV(p, e, currRing) … … 399 399 // component == comp and *p of all other monoms *lq == pLength(*q) 400 400 // On return all components pf *q == 0 401 void pTakeOutComp(poly *p, Exponent_tcomp, poly *q, int *lq);401 void pTakeOutComp(poly *p, long comp, poly *q, int *lq); 402 402 // Similar to pTakeOutComp, except that only those components are 403 403 // taken out whose Order == order 404 404 // ASSUME: monomial ordering is Order compatible, i.e., if m1, m2 Monoms then 405 405 // m1 >= m2 ==> pGetOrder(m1) >= pGetOrder(m2) 406 void pDecrOrdTakeOutComp(poly *p, Exponent_tcomp, long order,406 void pDecrOrdTakeOutComp(poly *p, long comp, long order, 407 407 poly *q, int *lq); 408 408 // This is something weird -- Don't use it, unless you know what you are doing -
kernel/polys0.cc
red5c8d r0b5e3d 54 54 { 55 55 { 56 Exponent_t ee = p_GetExp(p,i+1,r);56 int ee = p_GetExp(p,i+1,r); 57 57 if (ee!=0) 58 58 { … … 72 72 } 73 73 //StringAppend("{%d}",p->Order); 74 if (p_GetComp(p, r) != ( Exponent_t)ko)74 if (p_GetComp(p, r) != (long)ko) 75 75 { 76 76 if (writeGen) StringAppendS("*"); … … 99 99 } 100 100 101 Exponent_tk = 1;101 long k = 1; 102 102 StringAppendS("["); 103 103 loop -
kernel/ringgb.cc
red5c8d r0b5e3d 62 62 { 63 63 int i; 64 Exponent_t x;64 int x; 65 65 m1 = p_Init(m_r); 66 66 m2 = p_Init(m_r); -
kernel/sparsmat.h
red5c8d r0b5e3d 31 31 ideal smCallSolv(ideal I); 32 32 33 void smRingChange(ring *, sip_sring &, Exponent_t);33 void smRingChange(ring *, sip_sring &, long); 34 34 void smRingClean(ring, ip_sring &); 35 Exponent_tsmExpBound(ideal, int, int, int);35 long smExpBound(ideal, int, int, int); 36 36 BOOLEAN smCheckDet(ideal, int, BOOLEAN); 37 37 #endif
Note: See TracChangeset
for help on using the changeset viewer.