summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-07 21:12:19 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-07 21:12:19 +0000
commite81d98ec2d12d9101dc79928833b2c064d148afc (patch)
treed5966566fc4c86bca904ea941bfc6a19cc464918 /libguile/struct.c
parent563058efbe03208cacb43f664c702e3979922cb6 (diff)
downloadguile-e81d98ec2d12d9101dc79928833b2c064d148afc.tar.gz
* Introduce SCM_UNUSED and mark unused function parameters.
* Introduce SCM_DEBUG_PAIR_ACCESSES. * Extend the possibilities of SCM_DEBUG_CELL_ACCESSES.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c15
1 files changed, 10 insertions, 5 deletions
diff --git a/libguile/struct.c b/libguile/struct.c
index b13a8c1c8..dc9b7d981 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -332,7 +332,8 @@ scm_alloc_struct (int n_words, int n_extra, char *who)
}
size_t
-scm_struct_free_0 (scm_bits_t * vtable, scm_bits_t * data)
+scm_struct_free_0 (scm_bits_t * vtable SCM_UNUSED,
+ scm_bits_t * data SCM_UNUSED)
{
return 0;
}
@@ -345,7 +346,7 @@ scm_struct_free_light (scm_bits_t * vtable, scm_bits_t * data)
}
size_t
-scm_struct_free_standard (scm_bits_t * vtable, scm_bits_t * data)
+scm_struct_free_standard (scm_bits_t * vtable SCM_UNUSED, scm_bits_t * data)
{
size_t n = (data[scm_struct_i_n_words] + scm_struct_n_extra_words)
* sizeof (scm_bits_t) + 7;
@@ -354,7 +355,7 @@ scm_struct_free_standard (scm_bits_t * vtable, scm_bits_t * data)
}
size_t
-scm_struct_free_entity (scm_bits_t * vtable, scm_bits_t * data)
+scm_struct_free_entity (scm_bits_t * vtable SCM_UNUSED, scm_bits_t * data)
{
size_t n = (data[scm_struct_i_n_words] + scm_struct_entity_n_extra_words)
* sizeof (scm_bits_t) + 7;
@@ -363,14 +364,18 @@ scm_struct_free_entity (scm_bits_t * vtable, scm_bits_t * data)
}
static void *
-scm_struct_gc_init (void *dummy1, void *dummy2, void *dummy3)
+scm_struct_gc_init (void *dummy1 SCM_UNUSED,
+ void *dummy2 SCM_UNUSED,
+ void *dummy3 SCM_UNUSED)
{
scm_structs_to_free = SCM_EOL;
return 0;
}
static void *
-scm_free_structs (void *dummy1, void *dummy2, void *dummy3)
+scm_free_structs (void *dummy1 SCM_UNUSED,
+ void *dummy2 SCM_UNUSED,
+ void *dummy3 SCM_UNUSED)
{
SCM newchain = scm_structs_to_free;
do