Branch: Tag:

2003-01-26

2003-01-26 19:41:38 by Martin Nilsson <mani@lysator.liu.se>

Better Gmp.mpz types, I hope.

Rev: src/modules/Gmp/mpz_glue.c:1.119
Rev: src/program_id.h:1.15

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.118 2003/01/26 15:53:55 mirar Exp $ + || $Id: mpz_glue.c,v 1.119 2003/01/26 19:41:38 nilsson Exp $   */      #include "global.h" - RCSID("$Id: mpz_glue.c,v 1.118 2003/01/26 15:53:55 mirar Exp $"); + RCSID("$Id: mpz_glue.c,v 1.119 2003/01/26 19:41:38 nilsson Exp $");   #include "gmp_machine.h"   #include "module.h"   
1602:         #define tMpz_arg tOr3(tInt,tFloat,tObj) - #define tMpz_ret tObj + #define tMpz_ret tObjIs_GMP_MPZ   #define tMpz_int tInt   #define tMpz_shift_type tFunc(tMpz_arg,tMpz_ret)   #define tMpz_binop_type tFuncV(tNone, tMpz_arg, tMpz_ret) - #define tMpz_cmpop_type tFunc(tMixed, tInt) + #define tMpz_cmpop_type tFunc(tMixed, tInt01)      #define MPZ_DEFS() \    ADD_STORAGE(MP_INT); \