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

Fix omission bug: Add `heap_segment' forward decl

Browse source 
(proto) in the case when either `GUILE_DEBUG' or
`GUILE_DEBUG_FREELIST' preprocessor symbols are defined.

(map_free_list): Fix typo: Ref `f' correctly.

Thanks to Chris Cramer.
This commit is contained in:
Thien-Thi Nguyen 2001-08-17 23:45:29 +00:00
parent 65e43ca6d3
commit eae3393547
1 changed files with 19 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/gc.c
View file

@ -528,6 +528,8 @@ clear_mark_space ()
#if defined (GUILE_DEBUG) || defined (GUILE_DEBUG_FREELIST) #if defined (GUILE_DEBUG) || defined (GUILE_DEBUG_FREELIST)
static long int heap_segment (SCM obj); /* forw decl: non-debugging func */
static void static void
map_free_list (scm_t_freelist *master, SCM freelist) map_free_list (scm_t_freelist *master, SCM freelist)
{ {
@ -542,7 +544,7 @@ map_free_list (scm_t_freelist *master, SCM freelist)
{ {
fprintf (stderr, fprintf (stderr,
"map_free_list: can't find segment containing cell %lux\n", "map_free_list: can't find segment containing cell %lux\n",
(unsigned long int) SCM_UNPACK (cell)); (unsigned long int) SCM_UNPACK (f));
abort (); abort ();
} }
else if (this_seg != last_seg) else if (this_seg != last_seg)
@ -656,7 +658,7 @@ SCM_DEFINE (scm_free_list_length, "free-list-length", 0, 0, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
#endif #endif /* defined (GUILE_DEBUG) || defined (GUILE_DEBUG_FREELIST) */
#ifdef GUILE_DEBUG_FREELIST #ifdef GUILE_DEBUG_FREELIST