Branch: Tag:

2001-09-05

2001-09-05 05:41:11 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

Gmp.mpf implemented (rough but working implementation)

Rev: src/modules/Gmp/Makefile.in:1.20
Rev: src/modules/Gmp/mpf.cmod:1.1
Rev: src/modules/Gmp/mpq.cmod:1.2
Rev: src/modules/Gmp/mpz_glue.c:1.96
Rev: src/modules/Gmp/my_gmp.h:1.11
Rev: src/modules/Gmp/testsuite.in:1.18

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.95 2001/08/13 23:33:48 hubbe Exp $"); + RCSID("$Id: mpz_glue.c,v 1.96 2001/09/05 05:40:38 hubbe Exp $");   #include "gmp_machine.h"      #if defined(HAVE_GMP2_GMP_H) && defined(HAVE_LIBGMP2)
228:    break;       case T_OBJECT: +  if(s->u.object->prog == mpf_program) +  { +  mpz_set_f(tmp, OBTOMPF(s->u.object)); +  break; +  } +  +  if(s->u.object->prog == mpq_program) +  { +  mpz_set_q(tmp, OBTOMPQ(s->u.object)); +  break; +  } +     if(s->u.object->prog != mpzmod_program   #ifdef AUTO_BIGNUM    && s->u.object->prog != bignum_program
1472:      void pike_module_exit(void)   { +  pike_exit_mpf_module();    pike_exit_mpq_module();   #if defined(USE_GMP) || defined(USE_GMP2)    if(mpzmod_program)
1650:   #endif       pike_init_mpq_module(); +  pike_init_mpf_module();   }