Changeset f30702 in git
- Timestamp:
- Apr 8, 2008, 6:59:53 PM (15 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
- Children:
- b22f61450100a42993ed876b57da65d6ee72ef16
- Parents:
- 9b87a3e8e48687ab61432c83aa6566b20acb73f9
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/clapconv.cc
r9b87a3 rf30702 3 3 * Computer Algebra System SINGULAR * 4 4 ****************************************/ 5 // $Id: clapconv.cc,v 1.1 0 2008-01-07 13:36:16Singular Exp $5 // $Id: clapconv.cc,v 1.11 2008-04-08 16:59:53 Singular Exp $ 6 6 /* 7 7 * ABSTRACT: convert data between Singular and factory … … 189 189 for ( int i = 1; i <= r->N; i++ ) 190 190 p_SetExp( term, i, exp[i], r); 191 if (rRing_has_Comp(r)) p_SetComp(term, 0, r);191 //if (rRing_has_Comp(r)) p_SetComp(term, 0, r); // done by p_Init 192 192 if ( f.isImm() ) 193 193 pGetCoeff( term ) = n_Init( f.intval(), r ); … … 404 404 for ( i = 1; i <= pVariables; i++ ) 405 405 pSetExp( term, i , exp[i+var_start]); 406 if (rRing_has_Comp(currRing->algring)) 407 p_SetComp(term, 0, currRing->algring); 406 //if (rRing_has_Comp(currRing->algring)) p_SetComp(term, 0, currRing->algring); // done by pInit 408 407 if (par_start==0) 409 408 { … … 587 586 for ( int i = 1; i <= pVariables; i++ ) 588 587 pSetExp( term, i ,exp[i]); 589 if (rRing_has_Comp(currRing)) 590 p_SetComp(term, 0, currRing); 588 //if (rRing_has_Comp(currRing)) p_SetComp(term, 0, currRing); // done by pInit 591 589 pGetCoeff(term)=(number)omAlloc0Bin(rnumber_bin); 592 590 ((lnumber)pGetCoeff(term))->z=convFactoryPSingTr( f ); … … 683 681 for ( int i = 1; i <= pVariables; i++ ) 684 682 pSetExp( term, i, exp[i]); 685 if (rRing_has_Comp(currRing)) 686 p_SetComp(term, 0, currRing); 683 //if (rRing_has_Comp(currRing)) p_SetComp(term, 0, currRing); // done by pInit 687 684 pGetCoeff( term ) = (number) gf_value (f); 688 685 pSetm( term );
Note: See TracChangeset
for help on using the changeset viewer.