Branch: Tag:

1999-10-15

1999-10-15 21:06:19 by Fredrik Noring <noring@nocrew.org>

Small fix. Reduction cannot be done before the integer is computed.

Rev: src/modules/Gmp/mpz_glue.c:1.45

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.44 1999/10/08 16:35:20 noring Exp $"); + RCSID("$Id: mpz_glue.c,v 1.45 1999/10/15 21:06:19 noring Exp $");   #include "gmp_machine.h"      #if defined(HAVE_GMP2_GMP_H) && defined(HAVE_LIBGMP2)
770:    error("mpz->sqrt() on negative number.\n");       o=clone_object(mpzmod_program,0); -  PUSH_REDUCED(o); +     mpz_sqrt(OBTOMPZ(o), THIS); -  +  PUSH_REDUCED(o);   }      static void mpzmod_sqrtrem(INT32 args)