33 |
|
|
34 |
#else |
#else |
35 |
|
|
36 |
typedef MP_INT * GEN; |
/* typedef MP_INT * GEN; */ |
37 |
|
|
38 |
int obj_to_mpz(object,MP_INT *); |
int obj_to_mpz(object,MP_INT *); |
39 |
int obj_to_mpz1(object,MP_INT *,void *); |
int obj_to_mpz1(object,MP_INT *,void *); |
51 |
/* FIXME, verify that IDECL need not be changed, improve logic behind malloc */ |
/* FIXME, verify that IDECL need not be changed, improve logic behind malloc */ |
52 |
/* selection, e.g. closure boundaries. CM 20031201*/ |
/* selection, e.g. closure boundaries. CM 20031201*/ |
53 |
#define IDECL(a,b,c) mp_limb_t *c=(mp_limb_t *)ZALLOCA(1*sizeof(mp_limb_t));MP_INT b={1,1,c}; a = &b |
#define IDECL(a,b,c) mp_limb_t *c=(mp_limb_t *)ZALLOCA(1*sizeof(mp_limb_t));MP_INT b={1,1,c}; a = &b |
54 |
|
#define IDECL1(a,b,c) mp_limb_t *c=(mp_limb_t *)ZALLOCA(1*sizeof(mp_limb_t));MP_INT b={1,1,c}; GEN a = &b |
55 |
#define SETQ_IO(var,alloc,val,af) { object _xx = (val); \ |
#define SETQ_IO(var,alloc,val,af) { object _xx = (val); \ |
56 |
int _n; \ |
int _n; \ |
57 |
if ((_n=obj_to_mpz(_xx,(var)))) {\ |
if ((_n=obj_to_mpz(_xx,(var)))) {\ |