Changeset 06662e in git
 Timestamp:
 Jul 7, 2010, 7:56:32 PM (13 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
 Children:
 7c5dd189445ad8976fffa1f14278ff4b3f086575
 Parents:
 83bde7677e30b29c0175c6ded6bfb22ed67a40ec
 Location:
 kernel
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

kernel/ring.cc
r83bde7 r06662e 126 126 //setCharacteristic( c ); 127 127 #endif 128 }129 }130 131 void rNameCheck(ring R)132 {133 int i,j;134 for(i=0;i<R>N1;i++)135 {136 for(j=i+1;j<R>N;j++)137 {138 if (strcmp(R>names[i],R>names[j])==0)139 {140 Warn("name conflict var(%d) and var(%d): `%s`, rename to `@(%d)`",i+1,j+1,R>names[i],j+1);141 omFree(R>names[j]);142 R>names[j]=(char *)omAlloc(10);143 sprintf(R>names[j],"@(%d)",j+1);144 }145 }146 }147 for(i=0;i<R>P; i++)148 {149 for(j=0;j<R>N;j++)150 {151 if (strcmp(R>parameter[i],R>names[j])==0)152 {153 Warn("name conflict par(%d) and var(%d): `%s`, rename to `@@(%d)`",i+1,j+1,R>names[j],i+1);154 omFree(R>parameter[i]);155 R>parameter[i]=(char *)omAlloc(10);156 sprintf(R>parameter[i],"@@(%d)",i+1);157 }158 }159 128 } 160 129 } … … 823 792 * dp_dp: for comm. rings: use block order dp + dp/ds/wp 824 793 */ 825 int r Tensor(ring r1, ring r2, ring &sum, BOOLEAN dp_dp)794 int rSumInternal(ring r1, ring r2, ring &sum, BOOLEAN dp_dp) 826 795 { 827 796 ring save=currRing; 
kernel/ring.h
r83bde7 r06662e 71 71 ring rCopy(ring r); 72 72 ring rCopy0(const ring r, BOOLEAN copy_qideal = TRUE, BOOLEAN copy_ordering = TRUE); 73 void rNameCheck(ring R);74 73 ring rOpposite(ring r); 75 74 ring rEnvelope(ring r);
Note: See TracChangeset
for help on using the changeset viewer.