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

Fix my last commit -- DEBUG_FREELIST renamed to GUILE_DEBUG_FREELIST

Browse source
This commit is contained in:
Greg J. Badros 1999-09-28 00:54:26 +00:00
parent e1b0d0acc8
commit fca7547b1a
6 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/gc.c
View file

@ -220,7 +220,7 @@ static void alloc_some_heap SCM_P ((int, SCM *));
/* Debugging functions. */
#ifdef DEBUG_FREELIST
#ifdef GUILE_DEBUG_FREELIST
/* Return the number of the heap segment containing CELL. */
static int
@ -327,7 +327,7 @@ scm_debug_newcell (void)
return new;
}
#endif /* DEBUG_FREELIST */
#endif /* GUILE_DEBUG_FREELIST */
@ -1348,7 +1348,7 @@ scm_gc_sweep ()
the list of free cells we've built for this segment. */
*hp_freelist = nfreelist;
#ifdef DEBUG_FREELIST
#ifdef GUILE_DEBUG_FREELIST
scm_check_freelist ();
scm_map_free_list ();
#endif

2
libguile/gc.h
View file

@ -75,7 +75,7 @@ extern unsigned long scm_cells_allocated;
extern long scm_mallocated;
extern unsigned long scm_mtrigger;
#ifdef DEBUG_FREELIST
#ifdef GUILE_DEBUG_FREELIST
extern SCM scm_map_free_list (void);
extern SCM scm_debug_newcell (void);
extern SCM scm_gc_set_debug_check_freelist_x (SCM flag);

2
libguile/pairs.h
View file

@ -144,7 +144,7 @@ typedef SCM huge *SCMPTR;
#define SCM_CDDDDR(OBJ) SCM_CDR (SCM_CDR (SCM_CDR (SCM_CDR (OBJ))))
#ifdef DEBUG_FREELIST
#ifdef GUILE_DEBUG_FREELIST
#define SCM_NEWCELL(_into) do { _into = scm_debug_newcell (); } while (0)
#else
#define SCM_NEWCELL(_into) \