| 15 | #include "polys/simpleideals.h" |
| 16 | |
| 17 | static inline void |
| 18 | prCopyEvector(poly dest, ring dest_r, poly src, ring src_r,int max) |
| 19 | { |
| 20 | //memset(dest->exp,0,dest_r->ExpL_Size*sizeof(long)); |
| 21 | int i; |
| 22 | for (i=max; i>0; i--) |
| 23 | { |
| 24 | p_SetExp(dest, i, p_GetExp( src, i,src_r), dest_r); |
| 25 | } |
| 26 | if (rRing_has_Comp(dest_r) && rRing_has_Comp(src_r)) |
| 27 | p_SetComp(dest, p_GetComp( src,src_r), dest_r); |
| 28 | p_Setm(dest, dest_r); |
| 29 | } |
| 30 | |
| 31 | #include "polys/prCopy.inc" |
| 32 |