Changeset 06662e in git for kernel/ring.cc
 Timestamp:
 Jul 7, 2010, 7:56:32 PM (13 years ago)
 Branches:
 (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
 Children:
 7c5dd189445ad8976fffa1f14278ff4b3f086575
 Parents:
 83bde7677e30b29c0175c6ded6bfb22ed67a40ec
 File:

 1 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;
Note: See TracChangeset
for help on using the changeset viewer.