mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00: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

2
ChangeLog
View file

@ -2,7 +2,7 @@ Mon Sep 27 16:28:33 1999 Greg J. Badros <gjb@cs.washington.edu>
* configure.in: Added --enable-debug-freelist option.
* acconfig.h: Added DEBUG_FREELIST.
* acconfig.h: Added GUILE_DEBUG_FREELIST.
1999-09-23 Gary Houston <ghouston@freewire.co.uk>

2
acconfig.h
View file

@ -53,7 +53,7 @@
#undef READER_EXTENSIONS
/* Define this if you want to debug the free list (helps w/ GC bugs) */
#undef DEBUG_FREELIST
#undef GUILE_DEBUG_FREELIST
/* Define this if your system defines S_ISLNK in sys/stat.h */
#undef HAVE_S_ISLNK

2
configure.in
View file

@ -53,7 +53,7 @@ AC_ARG_ENABLE(guile-debug,
AC_ARG_ENABLE(debug-freelist,
[ --enable-debug-freelist Include garbage collector freelist debugging code],
if test "$enable_debug_freelist" = y || test "$enable_debug_freelist" = yes; then
AC_DEFINE(DEBUG_FREELIST)
AC_DEFINE(GUILE_DEBUG_FREELIST)
fi)
AC_ARG_ENABLE(posix,

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) \