mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* init.c (scm_boot_guile_1): Added calls to debug-malloc init

Browse source 
functions.
This commit is contained in:
Mikael Djurfeldt 2000-04-21 00:27:27 +00:00
parent f132213935
commit 6b815f1a10
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/init.c
View file

@ -63,6 +63,9 @@
#ifdef DEBUG_EXTENSIONS
#include "debug.h"
#endif
#ifdef GUILE_DEBUG_MALLOC
#include "debug-malloc.h"
#endif
#include "dynl.h"
#include "dynwind.h"
#include "eq.h"
@ -474,6 +477,9 @@ scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure)
scm_ports_prehistory ();
scm_smob_prehistory ();
scm_tables_prehistory ();
#ifdef GUILE_DEBUG_MALLOC
scm_debug_malloc_prehistory ();
#endif
#if defined (GUILE_NEW_GC_SCHEME)
scm_init_storage (scm_i_getenv_int ("GUILE_INIT_SEGMENT_SIZE_1", 0),
scm_i_getenv_int ("GUILE_MIN_YIELD_1", 0),
@ -497,6 +503,9 @@ scm_boot_guile_1 (SCM_STACKITEM *base, struct main_func_closure *closure)
scm_init_boolean ();
scm_init_chars ();
scm_init_continuations ();
#ifdef GUILE_DEBUG_MALLOC
scm_init_debug_malloc ();
#endif
scm_init_dynwind ();
scm_init_eq ();
scm_init_error ();