| 192 | extern void p_Setm_General(poly p, ring r); |
| 193 | |
| 194 | static poly p_DebugInit(poly p, ring src_ring, ring dest_ring) |
| 195 | { |
| 196 | poly d_p = p_Init(dest_ring); |
| 197 | int i; |
| 198 | assume(dest_ring->N == src_ring->N); |
| 199 | |
| 200 | for (i=1; i<= src_ring->N; i++) |
| 201 | { |
| 202 | p_SetExp(d_p, i, p_GetExp(p, i, src_ring), dest_ring); |
| 203 | } |
| 204 | if (rRing_has_Comp(dest_ring)) |
| 205 | p_SetComp(d_p, p_GetComp(p, src_ring), dest_ring); |
| 206 | |
| 207 | p_Setm_General(d_p, dest_ring); |
| 208 | return d_p; |
| 209 | } |
| 210 | |
| 211 | BOOLEAN _p_Test(poly p, ring r, int level) |
| 212 | { |