Branch: Tag:

2003-03-29

2003-03-29 17:14:22 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Now performs proper unhooking from bignum on unload.

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

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: mpz_glue.c,v 1.136 2003/03/29 13:49:36 mast Exp $ + || $Id: mpz_glue.c,v 1.137 2003/03/29 17:14:22 grubba Exp $   */      #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.136 2003/03/29 13:49:36 mast Exp $"); + RCSID("$Id: mpz_glue.c,v 1.137 2003/03/29 17:14:22 grubba Exp $");   #include "gmp_machine.h"   #include "module.h"   
1712: Inside #if defined(USE_GMP) || defined(USE_GMP2)
   mpzmod_program=0;    }   #ifdef AUTO_BIGNUM +  { +  extern struct svalue auto_bignum_program; +  free_svalue(&auto_bignum_program); +  auto_bignum_program.type=T_INT;    if(bignum_program)    {    free_program(bignum_program);
1720: Inside #if defined(USE_GMP) || defined(USE_GMP2), #if defined(AUTO_BIGNUM) and #if defined(INT64)
   mpz_clear (mpz_int_type_min);   #ifdef INT64    mpz_clear (mpz_int64_min); +  push_int64 = bootstrap_push_int64; +  int64_from_bignum = NULL;   #endif -  +  }   #endif   #endif   }