Changeset 0a7bf5 in git
 Timestamp:
 Jan 29, 2007, 5:56:56 PM (16 years ago)
 Branches:
 (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
 Children:
 ec7055abfd61047c42a1d4ee6e39e735fac26073
 Parents:
 ac1953ec20cdaf1e6df0baa6ab6041ce0599b8ff
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/ipassign.cc
rac1953e r0a7bf5 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ipassign.cc,v 1.8 5 20070109 14:31:05Singular Exp $ */4 /* $Id: ipassign.cc,v 1.86 20070129 16:56:56 Singular Exp $ */ 5 5 6 6 /* … … 433 433 static BOOLEAN jiA_IDEAL(leftv res, leftv a, Subexpr e) 434 434 { 435 if (currRing>minpoly!=NULL) {omCheckAddr(currRing>minpoly);} 435 436 if (res>data!=NULL) idDelete((ideal*)&res>data); 437 if (currRing>minpoly!=NULL) {omCheckAddr(currRing>minpoly);} 436 438 res>data=(void *)a>CopyD(MATRIX_CMD); 437 439 idNormalize((ideal)res>data); … … 562 564 return TRUE; 563 565 } 564 ring qr;565 int i,j;566 int *pi;567 566 568 567 assumeStdFlag(a); 569 qr=(ring)res>Data(); 570 ring qrr=rCopy(currRing); 568 ring qr=(ring)res>Data(); // the declaration allocated space 569 ring qrr=rCopy(currRing); 570 // we have to fill it, but the copy also allocates space 571 571 memcpy4(qr,qrr,sizeof(ip_sring)); 572 572 omFreeBin((ADDRESS)qrr, ip_sring_bin); … … 583 583 } 584 584 585 // is this an exterior algebra or a commu unative polynomial ring \otimes exterior algebra?585 // is this an exterior algebra or a commutative polynomial ring \otimes exterior algebra? 586 586 // we should check whether qr>qideal is of the form: y_i^2, y_{i+1}^2, \ldots, y_j^2 (j > i) 587 587 //.if yes, setup qr>nc>type, etc.
Note: See TracChangeset
for help on using the changeset viewer.