| 172 | |
| 173 | |
| 174 | static inline ideal |
| 175 | idrCopy(ideal id, ring src_r, ring dest_r, prCopyProc_t prproc) |
| 176 | { |
| 177 | if (id == NULL) return NULL; |
| 178 | assume(src_r->cf==dest_r->cf); |
| 179 | poly p; |
| 180 | ideal res = idInit(IDELEMS(id), id->rank); |
| 181 | int i; |
| 182 | |
| 183 | for (i=IDELEMS(id)-1; i>=0; i--) |
| 184 | { |
| 185 | p = id->m[i]; |
| 186 | res->m[i] = prproc(p, src_r, dest_r); |
| 187 | p_Test(res->m[i], dest_r); |
| 188 | } |
| 189 | return res; |
| 190 | } |
| 191 | |
| 192 | ideal idrCopyR(ideal id, ring src_r, ring dest_r) |
| 193 | { |
no test coverage detected