33 |
#define IDECL(a,b,c) our_ulong b[4];a =(b[0]=0x1010000 +4,b);object c |
#define IDECL(a,b,c) our_ulong b[4];a =(b[0]=0x1010000 +4,b);object c |
34 |
#endif |
#endif |
35 |
|
|
36 |
|
#else |
37 |
|
|
38 |
|
typedef MP_INT * GEN; |
39 |
|
|
40 |
|
int obj_to_mpz(object,MP_INT *); |
41 |
|
int mpz_to_mpz(MP_INT *,MP_INT *); |
42 |
|
void isetq_fix(MP_INT *,int); |
43 |
|
MP_INT * otoi(object x); |
44 |
|
|
45 |
|
#define IDECL(a,b,c) MP_INT b; a = (mpz_init(&b),&b) ; object c |
46 |
|
#define SETQ_IO(var,alloc,val) { object _xx = (val); \ |
47 |
|
obj_to_mpz(_xx,(var));} |
48 |
|
#define SETQ_II(var,alloc,val) { MP_INT * _xx = (val); \ |
49 |
|
mpz_to_mpz(_xx,(var));} |
50 |
|
#define ISETQ_FIX(a,b,c) isetq_fix(a,c) |
51 |
|
|
52 |
|
|
53 |
#endif /* end no GMP */ |
#endif /* end no GMP */ |
54 |
|
|
55 |
#define cclosure_call funcall |
#define cclosure_call funcall |