mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 01:30:27 +02:00
Code Activity

* gc-malloc.c, gc.h (scm_gc_malloc_prehistory): New function.

Browse source 
* gc-malloc.c (malloc_mutex): New mutex.
(scm_gc_malloc_prehistory): Initialize it.
(scm_realloc): Serialize call to realloc
(scm_calloc): Same for calloc.
Thanks to Wolfgang Jaehrling!
(Now we have to make sure all calls to malloc/realloc are made
through scm_malloc.)

* init.c (scm_init_guile_1): Call scm_gc_malloc_prehistory.
This commit is contained in:
Mikael Djurfeldt 2002-12-10 20:25:26 +00:00
parent 3cdde9d667
commit 960c408c04
4 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/init.c
View file

@ -444,6 +444,7 @@ scm_init_guile_1 (SCM_STACKITEM *base)
scm_block_gc = 1;
scm_gc_malloc_prehistory ();
scm_threads_prehistory ();
scm_ports_prehistory ();
scm_smob_prehistory ();