Changeset a0abee in git for Singular/iparith.cc
- Timestamp:
- Mar 29, 2021, 11:53:18 PM (3 years ago)
- Branches:
- (u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')
- Children:
- 9e5a6c133d12cc9750553f96ddb76b671e731293
- Parents:
- 11b3b2c70e910e5436c4461f3bdfd2649f4aa465
- git-author:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2021-03-29 23:53:18+02:00
- git-committer:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2021-03-30 00:45:51+02:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/iparith.cc
r11b3b2c ra0abee 612 612 poly u_p=(poly)u->CopyD(POLY_CMD); 613 613 if ((u_p!=NULL) 614 #ifdef HAVE_SHIFTBBA615 614 && (!rIsLPRing(currRing)) 616 #endif617 615 && ((v_i!=0) && 618 616 ((long)pTotaldegree(u_p) > (signed long)currRing->bitmask / (signed long)v_i/2))) … … 4035 4033 assumeStdFlag(v); 4036 4034 #ifdef HAVE_SHIFTBBA 4037 if ( currRing->isLPring)4035 if (rIsLPRing(currRing)) 4038 4036 { 4039 4037 #ifdef HAVE_RINGS … … 4283 4281 { 4284 4282 #ifdef HAVE_SHIFTBBA 4285 if ( currRing->isLPring)4283 if (rIsLPRing(currRing)) 4286 4284 { 4287 4285 int deg = (int)(long)v->Data(); 4288 if (deg > currRing->N/currRing->isLPring) { 4286 if (deg > currRing->N/currRing->isLPring) 4287 { 4289 4288 WerrorS("degree bound of Letterplace ring is to small"); 4290 4289 return TRUE; … … 5172 5171 return FALSE; 5173 5172 } 5173 static BOOLEAN jjOPPOSITE(leftv res, leftv a) 5174 { 5174 5175 #ifdef HAVE_PLURAL 5175 static BOOLEAN jjOPPOSITE(leftv res, leftv a)5176 {5177 5176 ring r = (ring)a->Data(); 5178 5177 //if (rIsPluralRing(r)) … … 5187 5186 } 5188 5187 return FALSE; 5188 #else 5189 return TRUE; 5190 #endif 5189 5191 } 5190 5192 static BOOLEAN jjENVELOPE(leftv res, leftv a) 5191 5193 { 5194 #ifdef HAVE_PLURAL 5192 5195 ring r = (ring)a->Data(); 5193 5196 if (rIsPluralRing(r)) … … 5198 5201 else res->data = rCopy(r); 5199 5202 return FALSE; 5203 #else 5204 return TRUE; 5205 #endif 5200 5206 } 5201 5207 static BOOLEAN jjTWOSTD(leftv res, leftv a) 5202 5208 { 5209 #ifdef HAVE_PLURAL 5203 5210 ideal result; 5204 5211 ideal v_id=(ideal)a->Data(); … … 5213 5220 setFlag(res,FLAG_TWOSTD); 5214 5221 return FALSE; 5215 } 5222 #else 5223 return TRUE; 5216 5224 #endif 5225 } 5226 static BOOLEAN jjRIGHTSTD(leftv res, leftv v) 5227 { 5217 5228 #if defined(HAVE_SHIFTBBA) || defined(HAVE_PLURAL)// do not place above jjSTD in this file because we need to reference it 5218 static BOOLEAN jjRIGHTSTD(leftv res, leftv v)5219 {5220 5229 if (rIsLPRing(currRing)) 5221 5230 { … … 5272 5281 return jjSTD(res, v); 5273 5282 } 5274 } 5283 #else 5284 return TRUE; 5275 5285 #endif 5286 } 5276 5287 static BOOLEAN jjTYPEOF(leftv res, leftv v) 5277 5288 { … … 5362 5373 assumeStdFlag(v); 5363 5374 #ifdef HAVE_SHIFTBBA 5364 if ( currRing->isLPring)5375 if (rIsLPRing(currRing)) 5365 5376 { 5366 5377 #ifdef HAVE_RINGS … … 6592 6603 else 6593 6604 { 6594 #ifdef HAVE_SHIFTBBA6595 6605 if (rIsLPRing(currRing)) 6596 6606 { … … 6598 6608 return TRUE; 6599 6609 } 6600 #endif6601 6610 res->data=pSubstPar(p,-ringvar,monomexpr); 6602 6611 } … … 6641 6650 else 6642 6651 { 6643 #ifdef HAVE_SHIFTBBA6644 6652 if (rIsLPRing(currRing)) 6645 6653 { … … 6647 6655 return TRUE; 6648 6656 } 6649 #endif6650 6657 res->data = idSubstPar(id,-ringvar,monomexpr); 6651 6658 } … … 9844 9851 static BOOLEAN check_valid(const int p, const int op) 9845 9852 { 9846 #ifdef HAVE_PLURAL9847 9853 if (rIsPluralRing(currRing)) 9848 9854 { … … 9859 9865 /* else, ALLOW_PLURAL */ 9860 9866 } 9861 #ifdef HAVE_SHIFTBBA9862 9867 else if (rIsLPRing(currRing)) 9863 9868 { … … 9868 9873 } 9869 9874 } 9870 #endif9871 #endif9872 #ifdef HAVE_RINGS9873 9875 if (rField_is_Ring(currRing)) 9874 9876 { … … 9891 9893 } 9892 9894 } 9893 #endif9894 9895 return FALSE; 9895 9896 }
Note: See TracChangeset
for help on using the changeset viewer.