91 |
|
|
92 |
#include "gmp.c" |
#include "gmp.c" |
93 |
void |
void |
94 |
init_big1(void) { |
gcl_init_big1(void) { |
95 |
mp_set_memory_functions( gcl_gmp_alloc,gcl_gmp_realloc,gcl_gmp_free); |
mp_set_memory_functions( gcl_gmp_alloc,gcl_gmp_realloc,gcl_gmp_free); |
96 |
} |
} |
97 |
|
|
98 |
#else |
#else |
99 |
init_big1() |
gcl_init_big1() |
100 |
{ |
{ |
101 |
} |
} |
102 |
#endif |
#endif |
492 |
|
|
493 |
|
|
494 |
void |
void |
495 |
init_big(void) |
gcl_init_big(void) |
496 |
{ |
{ |
497 |
big_gcprotect=alloc_object(t_bignum); |
big_gcprotect=alloc_object(t_bignum); |
498 |
MP_SELF(big_gcprotect)=0; |
MP_SELF(big_gcprotect)=0; |
502 |
enter_mark_origin(&big_fixnum1); |
enter_mark_origin(&big_fixnum1); |
503 |
enter_mark_origin(&big_gcprotect); |
enter_mark_origin(&big_gcprotect); |
504 |
enter_mark_origin(&big_fixnum2); |
enter_mark_origin(&big_fixnum2); |
505 |
init_big1(); |
gcl_init_big1(); |
506 |
|
|
507 |
|
|
508 |
} |
} |