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

Clean up some uses of old GC macros that don't exist any more.

Browse source 
* libguile/deprecated.h (SCM_GC8MARKP, SCM_SETGC8MARK, SCM_CLRGC8MARK):
  Delete.
* libguile/gc.c (scm_assert_cell_valid): Remove check of SCM_GC_MARK_P.
This commit is contained in:
Ken Raeburn 2009-10-29 12:16:12 -04:00
parent 9515ef7237
commit b4246e5b22
2 changed files with 1 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/gc.c
View file

@ -146,18 +146,7 @@ scm_assert_cell_valid (SCM cell)
*/
if (scm_expensive_debug_cell_accesses_p)
scm_i_expensive_validation_check (cell);
#if (SCM_DEBUG_MARKING_API == 0)
if (!SCM_GC_MARK_P (cell))
{
fprintf (stderr,
"scm_assert_cell_valid: this object is unmarked. \n"
"It has been garbage-collected in the last GC run: "
"%lux\n",
(unsigned long) SCM_UNPACK (cell));
abort ();
}
#endif /* SCM_DEBUG_MARKING_API */
scm_i_cell_validation_already_running = 0; /* re-enable */
}
}