diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-07 21:12:19 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-07 21:12:19 +0000 |
commit | e81d98ec2d12d9101dc79928833b2c064d148afc (patch) | |
tree | d5966566fc4c86bca904ea941bfc6a19cc464918 /libguile/struct.c | |
parent | 563058efbe03208cacb43f664c702e3979922cb6 (diff) | |
download | guile-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.c | 15 |
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 |