Branch: Tag:

2000-01-11

2000-01-11 04:01:20 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

bugfix

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

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.71 2000/01/10 00:41:34 hubbe Exp $"); + RCSID("$Id: mpz_glue.c,v 1.72 2000/01/11 04:01:20 hubbe Exp $");   #include "gmp_machine.h"      #if defined(HAVE_GMP2_GMP_H) && defined(HAVE_LIBGMP2)
1264:    if ( (sp[-2].type != T_INT) || (sp[-2].u.integer < 0)    || (sp[-1].type != T_INT) || (sp[-1].u.integer < 0))    error("Gmp.pow: Negative arguments"); -  res = fast_clone_object(THIS_PROGRAM, 0); +  res = fast_clone_object(mpzmod_program, 0);    mpz_ui_pow_ui(OBTOMPZ(res), sp[-2].u.integer, sp[-1].u.integer);    pop_n_elems(args);    PUSH_REDUCED(res);
1279:    error("Gmp.fac: Non int argument.\n");    if (sp[-1].u.integer < 0)    error("Gmp.mpz->pow: Negative exponent.\n"); -  res = fast_clone_object(THIS_PROGRAM, 0); +  res = fast_clone_object(mpzmod_program, 0);    mpz_fac_ui(OBTOMPZ(res), sp[-1].u.integer);    pop_n_elems(args);    PUSH_REDUCED(res);