Changeset 91c0af in git
- Timestamp:
- Jun 20, 2014, 3:34:18 PM (10 years ago)
- Branches:
- (u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
- Children:
- 68f5d0048b22a105171d0b1bbd91967a3129cc13
- Parents:
- 85d8e82781d0ff9a659021b880317d46083f09b5
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/ipassign.cc
r85d8e82 r91c0af 743 743 #ifdef HAVE_RINGS 744 744 ideal id = (ideal)a->Data(); //? 745 const int cpos = idPosConstant(id); 745 const int cpos = idPosConstant(id); 746 746 if(rField_is_Ring(currRing)) 747 747 if (cpos >= 0) … … 756 756 ring qr = rCopy(currRing); 757 757 assume(qr->cf == currRing->cf); 758 758 759 759 if ( qr->cf != newcf ) 760 760 { 761 761 nKillChar ( qr->cf ); // ??? 762 762 qr->cf = newcf; 763 } 763 } 764 764 // we have to fill it, but the copy also allocates space 765 765 idhdl h=(idhdl)res->data; // we have res->rtyp==IDHDL 766 766 IDRING(h)=qr; 767 767 768 768 ideal qid; 769 769 … … 773 773 int i, j; 774 774 int *perm = (int *)omAlloc0((qr->N+1)*sizeof(int)); 775 776 for(i=qr->N;i>0;i--) 775 776 for(i=qr->N;i>0;i--) 777 777 perm[i]=i; 778 778 … … 786 786 #endif 787 787 qid = idrCopyR(id,currRing,qr); 788 788 789 789 idSkipZeroes(qid); 790 790 //idPrint(qid); … … 1228 1228 IDLIST((idhdl)l->data)=L; 1229 1229 IDTYP((idhdl)l->data)=LIST_CMD; // was possibly DEF_CMD 1230 i pMoveId((idhdl)l->data);1230 if (lRingDependend(L)) ipMoveId((idhdl)l->data); 1231 1231 } 1232 1232 else … … 1394 1394 h=l->next; 1395 1395 l->next=NULL; 1396 idhdl hh=NULL; 1397 if ((l->rtyp==IDHDL)&&(l->Typ()==DEF_CMD)) hh=(idhdl)l->data; 1396 1398 nok=jiAssign_1(l,&t); 1399 if (hh!=NULL) { ipMoveId(hh);hh=NULL;} 1397 1400 l->next=h; 1398 1401 if (nok)
Note: See TracChangeset
for help on using the changeset viewer.