/[gcl]/gcl/o/gmp_big.c
ViewVC logotype

Diff of /gcl/o/gmp_big.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by camm, Sat Feb 15 00:38:28 2003 UTC revision 1.6.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC
# Line 91  object big_fixnum1; Line 91  object big_fixnum1;
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  
# Line 492  coerce_big_to_string(object x, int print Line 492  coerce_big_to_string(object x, int print
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;
# Line 502  init_big(void) Line 502  init_big(void)
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  }  }

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.6.6.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26