mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-28 16:00:22 +02:00
Fix omission bug: Add `heap_segment' forward decl
(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:
parent
65e43ca6d3
commit
eae3393547
1 changed files with 19 additions and 17 deletions
|
@ -528,6 +528,8 @@ clear_mark_space ()
|
|||
|
||||
#if defined (GUILE_DEBUG) || defined (GUILE_DEBUG_FREELIST)
|
||||
|
||||
static long int heap_segment (SCM obj); /* forw decl: non-debugging func */
|
||||
|
||||
static void
|
||||
map_free_list (scm_t_freelist *master, SCM freelist)
|
||||
{
|
||||
|
@ -542,7 +544,7 @@ map_free_list (scm_t_freelist *master, SCM freelist)
|
|||
{
|
||||
fprintf (stderr,
|
||||
"map_free_list: can't find segment containing cell %lux\n",
|
||||
(unsigned long int) SCM_UNPACK (cell));
|
||||
(unsigned long int) SCM_UNPACK (f));
|
||||
abort ();
|
||||
}
|
||||
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
|
||||
|
||||
#endif
|
||||
#endif /* defined (GUILE_DEBUG) || defined (GUILE_DEBUG_FREELIST) */
|
||||
|
||||
#ifdef GUILE_DEBUG_FREELIST
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue