| 2703 | return FALSE; |
| 2704 | } |
| 2705 | static BOOLEAN jjMOD_N(leftv res, leftv u, leftv v) |
| 2706 | { |
| 2707 | number q=(number)v->Data(); |
| 2708 | if (nIsZero(q)) |
| 2709 | { |
| 2710 | WerrorS(ii_div_by_0); |
| 2711 | return TRUE; |
| 2712 | } |
| 2713 | res->data =(char *) n_IntMod((number)u->Data(),q,currRing->cf); |
| 2714 | return FALSE; |
| 2715 | } |
| 2716 | static BOOLEAN jjMOD_P(leftv res, leftv u, leftv v) |
| 2717 | { |
| 2718 | poly q=(poly)v->Data(); |