mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* gc.c, gc.h (scm_map_free_list): Define also if GUILE_DEBUG is

Browse source 
defined.
This commit is contained in:
Mikael Djurfeldt 2000-03-16 01:29:00 +00:00
parent 17351a6f17
commit bb2c57fa98
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/gc.c
View file

@ -240,7 +240,7 @@ static void alloc_some_heap (scm_freelist_t *);
/* Debugging functions. */
#ifdef GUILE_DEBUG_FREELIST
#if defined (GUILE_DEBUG) || defined (GUILE_DEBUG_FREELIST)
/* Return the number of the heap segment containing CELL. */
static int
@ -330,6 +330,9 @@ SCM_DEFINE (scm_map_free_list, "map-free-list", 0, 0, 0,
}
#undef FUNC_NAME
#endif
#ifdef GUILE_DEBUG_FREELIST
/* Number of calls to SCM_NEWCELL since startup. */
static unsigned long scm_newcell_count;

4
libguile/gc.h
View file

@ -111,8 +111,10 @@ extern unsigned long scm_cells_allocated;
extern long scm_mallocated;
extern unsigned long scm_mtrigger;
#ifdef GUILE_DEBUG_FREELIST
#if defined (GUILE_DEBUG) || defined (GUILE_DEBUG_FREELIST)
extern SCM scm_map_free_list (void);
#endif
#ifdef GUILE_DEBUG_FREELIST
extern SCM scm_debug_newcell (void);
extern SCM scm_debug_newcell2 (void);
extern SCM scm_gc_set_debug_check_freelist_x (SCM flag);