Changeset d4c53a in git
 Timestamp:
 Oct 10, 2008, 5:49:08 PM (16 years ago)
 Branches:
 (u'fiekerDuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
 Children:
 cfb8edb7456b2ae7760ad4a0b9982a2128ca52d3
 Parents:
 36e34686a0b133e6f1ebe6746a9e6ece43a48cf7
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/ipassign.cc
r36e346 rd4c53a 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ipassign.cc,v 1.9 8 20080626 18:35:11 motsakExp $ */4 /* $Id: ipassign.cc,v 1.99 20081010 15:49:08 Singular Exp $ */ 5 5 6 6 /* … … 425 425 static BOOLEAN jiA_INTVEC(leftv res, leftv a, Subexpr e) 426 426 { 427 if (res>data!=NULL) delete ((intvec *)res>data); 428 res>data=(void *)a>CopyD(INTVEC_CMD); 429 jiAssignAttr(res,a); 430 return FALSE; 427 if ((res>data==NULL)  (res>Typ()==a>Typ())) 428 { 429 if (res>data!=NULL) delete ((intvec *)res>data); 430 res>data=(void *)a>CopyD(INTVEC_CMD); 431 jiAssignAttr(res,a); 432 return FALSE; 433 } 434 else 435 { 436 intvec *r=(intvec *)(res>data); 437 intvec *s=(intvec *)(a>data); 438 int i=si_min(r>length(), s>length())1; 439 for(;i>=0;i) 440 { 441 (*r)[i]=(*s)[i]; 442 } 443 return (r>length()< s>length()); 444 } 431 445 } 432 446 static BOOLEAN jiA_IDEAL(leftv res, leftv a, Subexpr e) … … 644 658 ,{jiA_INTVEC, INTVEC_CMD, INTVEC_CMD } 645 659 ,{jiA_INTVEC, INTMAT_CMD, INTMAT_CMD } 660 ,{jiA_INTVEC, INTMAT_CMD, INTVEC_CMD } 646 661 ,{jiA_NUMBER, NUMBER_CMD, NUMBER_CMD } 647 662 ,{jiA_BIGINT, BIGINT_CMD, BIGINT_CMD }
Note: See TracChangeset
for help on using the changeset viewer.