mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-11 19:53:52 -08:00
Code Issues Projects Releases Packages Wiki Activity

- Move initializing big registers in cl_env to separate function to

Browse source 
initialize them properly when creating new threads.
This commit is contained in:
japhie 2005-06-23 22:02:08 +00:00
parent 75f748bf75
commit 46331af806
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/c/big.d
View file

@ -280,13 +280,18 @@ mp_free(void *ptr, size_t size)
cl_dealloc(x,size);
}
void
init_big(void)
void init_big_registers(void)
{
int i;
for (i = 0; i < 3; i++) {
cl_env.big_register[i] = cl_alloc_object(t_bignum);
big_register_free(cl_env.big_register[i]);
}
}
void
init_big(void)
{
init_big_registers();
mp_set_memory_functions(mp_alloc, mp_realloc, mp_free);
}

1
src/h/internal.h
View file

@ -25,6 +25,7 @@ extern void init_all_symbols(void);
extern void init_alloc(void);
extern void init_backq(void);
extern void init_big(void);
extern void init_big_registers(void);
#ifdef CLOS
extern void init_clos(void);
#endif