Changeset 08db0a in git for Singular/iparith.cc
- Timestamp:
- Feb 17, 2005, 10:49:22 AM (19 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- dee5f73edaad83fffbcbd97d0a093cf6ab348c0f
- Parents:
- b130fbdd904f0fcd5cd03e438f6daac7d8dc5125
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/iparith.cc
rb130fb r08db0a 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: iparith.cc,v 1.3 39 2005-02-11 20:18:34 levandovExp $ */4 /* $Id: iparith.cc,v 1.340 2005-02-17 09:49:18 Singular Exp $ */ 5 5 6 6 /* … … 2940 2940 int dummy; 2941 2941 poly p=(poly)v->Data(); 2942 if (p!=NULL) res->data = (char *)pLDeg(p,&dummy );2942 if (p!=NULL) res->data = (char *)pLDeg(p,&dummy,currRing); 2943 2943 else res->data=(char *)-1; 2944 2944 return FALSE; … … 2951 2951 int i; 2952 2952 for(i=IDELEMS(I);i>=0;i--) 2953 if (I->m[i]!=NULL) d=max(d,pLDeg(I->m[i],&dummy ));2953 if (I->m[i]!=NULL) d=max(d,pLDeg(I->m[i],&dummy,currRing)); 2954 2954 res->data = (char *)d; 2955 2955 return FALSE; … … 3143 3143 { 3144 3144 // now po!=NULL, p!=NULL 3145 int d=(pFDeg(po )-(*w)[pGetComp(po)-1] - pFDeg(p)+(*w)[i-1]);3145 int d=(pFDeg(po,currRing)-(*w)[pGetComp(po)-1] - pFDeg(p,currRing)+(*w)[i-1]); 3146 3146 if (d==0) 3147 3147 d=pLmCmp(po,p); … … 3430 3430 { 3431 3431 poly p=(poly)v->Data(); 3432 res->data=(char *)( p==NULL ? -1 : pFDeg(p ) );3432 res->data=(char *)( p==NULL ? -1 : pFDeg(p,currRing) ); 3433 3433 return FALSE; 3434 3434 }
Note: See TracChangeset
for help on using the changeset viewer.