summaryrefslogtreecommitdiff
path: root/libguile/smob.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/smob.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/smob.c')
-rw-r--r--libguile/smob.c17
1 files changed, 10 insertions, 7 deletions
diff --git a/libguile/smob.c b/libguile/smob.c
index e2d9fcb7c..558adc979 100644
--- a/libguile/smob.c
+++ b/libguile/smob.c
@@ -84,7 +84,7 @@ scm_smob_descriptor scm_smobs[MAX_SMOB_COUNT];
to make their links fail. */
SCM
-scm_mark0 (SCM ptr)
+scm_mark0 (SCM ptr SCM_UNUSED)
{
return SCM_BOOL_F;
}
@@ -101,7 +101,7 @@ scm_markcdr (SCM ptr)
*/
size_t
-scm_free0 (SCM ptr)
+scm_free0 (SCM ptr SCM_UNUSED)
{
return 0;
}
@@ -117,7 +117,7 @@ scm_smob_free (SCM obj)
*/
int
-scm_smob_print (SCM exp, SCM port, scm_print_state *pstate)
+scm_smob_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
long n = SCM_SMOBNUM (exp);
scm_puts ("#<", port);
@@ -216,7 +216,7 @@ scm_smob_apply_1_021 (SCM smob, SCM a1)
}
static SCM
-scm_smob_apply_1_error (SCM smob, SCM a1)
+scm_smob_apply_1_error (SCM smob, SCM a1 SCM_UNUSED)
{
scm_wrong_num_args (smob);
}
@@ -246,7 +246,7 @@ scm_smob_apply_2_021 (SCM smob, SCM a1, SCM a2)
}
static SCM
-scm_smob_apply_2_error (SCM smob, SCM a1, SCM a2)
+scm_smob_apply_2_error (SCM smob, SCM a1 SCM_UNUSED, SCM a2 SCM_UNUSED)
{
scm_wrong_num_args (smob);
}
@@ -278,7 +278,10 @@ scm_smob_apply_3_021 (SCM smob, SCM a1, SCM a2, SCM rst)
}
static SCM
-scm_smob_apply_3_error (SCM smob, SCM a1, SCM a2, SCM rst)
+scm_smob_apply_3_error (SCM smob,
+ SCM a1 SCM_UNUSED,
+ SCM a2 SCM_UNUSED,
+ SCM rst SCM_UNUSED)
{
scm_wrong_num_args (smob);
}
@@ -512,7 +515,7 @@ scm_set_smob_mfpe (long tc,
*/
static int
-free_print (SCM exp, SCM port, scm_print_state *pstate)
+free_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
char buf[100];