| 2129 | } |
| 2130 | |
| 2131 | intvec* hFirstSeries0(ideal A,ideal Q, intvec *wdegree, const ring src, const ring Qt) |
| 2132 | { |
| 2133 | poly s=hFirstSeries0p(A,Q,wdegree,src,Qt); |
| 2134 | intvec *ss; |
| 2135 | if (s==NULL) |
| 2136 | ss=new intvec(2); |
| 2137 | else |
| 2138 | { |
| 2139 | ss=new intvec(p_Totaldegree(s,Qt)+2); |
| 2140 | while(s!=NULL) |
| 2141 | { |
| 2142 | int i=p_Totaldegree(s,Qt); |
| 2143 | long l=n_Int(pGetCoeff(s),Qt->cf); |
| 2144 | (*ss)[i]=n_Int(pGetCoeff(s),Qt->cf); |
| 2145 | if((l==0)||(l<=-INT_MAX)||(l>INT_MAX)) |
| 2146 | { |
| 2147 | if(!errorreported) Werror("overflow at t^%d\n",i); |
| 2148 | } |
| 2149 | else (*ss)[i]=(int)l; |
| 2150 | p_LmDelete(&s,Qt); |
| 2151 | } |
| 2152 | } |
| 2153 | return ss; |
| 2154 | } |
| 2155 | |
| 2156 | static ideal getModuleComp(ideal A, int c, const ring src) |
| 2157 | { |
no test coverage detected