mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* Introduce SCM_UNUSED and mark unused function parameters.

Browse source 
* Introduce SCM_DEBUG_PAIR_ACCESSES.
* Extend the possibilities of SCM_DEBUG_CELL_ACCESSES.
This commit is contained in:
Dirk Herrmann 2001-06-07 21:12:19 +00:00
parent 563058efbe
commit e81d98ec2d
39 changed files with 378 additions and 139 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/guardians.c
View file

@ -184,7 +184,7 @@ guardian_free (SCM ptr)
static int
guardian_print (SCM guardian, SCM port, scm_print_state *pstate)
guardian_print (SCM guardian, SCM port, scm_print_state *pstate SCM_UNUSED)
{
guardian_t *g = GUARDIAN (guardian);
@ -428,7 +428,9 @@ SCM_DEFINE (scm_destroy_guardian_x, "destroy-guardian!", 1, 0, 0,
/* called before gc mark phase begins to initialise the live guardian list. */
static void *
guardian_gc_init (void *dummy1, void *dummy2, void *dummy3)
guardian_gc_init (void *dummy1 SCM_UNUSED,
void *dummy2 SCM_UNUSED,
void *dummy3 SCM_UNUSED)
{
greedy_guardians = sharing_guardians = NULL;
@ -530,7 +532,9 @@ mark_and_zombify (guardian_t *g)
phases. for each marked guardian, it moves any unmarked object in
its live list (tconc) to its zombie list (tconc). */
static void *
guardian_zombify (void *dummy1, void *dummy2, void *dummy3)
guardian_zombify (void *dummy1 SCM_UNUSED,
void *dummy2 SCM_UNUSED,
void *dummy3 SCM_UNUSED)
{
guardian_t *last_greedy_guardian = NULL;
guardian_t *last_sharing_guardian = NULL;
@ -588,7 +592,9 @@ guardian_zombify (void *dummy1, void *dummy2, void *dummy3)
}
static void *
whine_about_self_centered_zombies (void *dummy1, void *dummy2, void *dummy3)
whine_about_self_centered_zombies (void *dummy1 SCM_UNUSED,
void *dummy2 SCM_UNUSED,
void *dummy3 SCM_UNUSED)
{
if (! SCM_NULLP (SCM_CDR (self_centered_zombies)))
{