| 119 | return t; |
| 120 | } |
| 121 | static void kAppend(poly t,TObject* h) |
| 122 | { |
| 123 | poly p; |
| 124 | if (h->t_p!=NULL) |
| 125 | p=h->t_p; |
| 126 | else |
| 127 | p=h->p; |
| 128 | while(p->next!=NULL) pIter(p); |
| 129 | p->next=t; |
| 130 | if ((h->p!=NULL)&&(h->t_p!=NULL)) pNext(h->p)=pNext(h->t_p); |
| 131 | } |
| 132 | static poly lazyComp(number* A, poly* M,poly* T,int index,poly s,int *l,const ring tailR) |
| 133 | { |
| 134 | if ((TEST_OPT_PROT) && (index>0)) { Print("<%d>",index+1); mflush(); } |