Branch: Tag:

1997-02-27

1997-02-27 11:54:00 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

assert removed

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

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.1 1997/02/11 08:08:40 hubbe Exp $"); + RCSID("$Id: mpz_glue.c,v 1.2 1997/02/27 11:54:00 hubbe Exp $");   #include "gmp_machine.h"   #include "types.h"   
25:   #include "pike_types.h"      #include <gmp.h> - #include <assert.h> +       #define THIS ((MP_INT *)(fp->current_storage))   #define OBTOMPZ(o) ((MP_INT *)(o->storage))
174:    s->str[i] = mpz_get_ui(tmp) & 0xff;    mpz_tdiv_q_2exp(tmp, tmp, 8);    } -  assert(mpz_sgn(tmp) == 0); +     mpz_clear(tmp);    s = end_shared_string(s);    }