From 4e6e21198734a80493fa40bfe89d1b431f538cc8 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 5 Sep 1998 16:50:33 +0000 Subject: [PATCH] * smob.c (scm_numsmob): Make this an int, not an scm_sizet, to avoid signed/unsigned comparisons. * smob.h (scm_numsmob): Change extern declaration to match. --- libguile/smob.c | 2 +- libguile/smob.h | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/libguile/smob.c b/libguile/smob.c index a498c48b4..8c54b3ec3 100644 --- a/libguile/smob.c +++ b/libguile/smob.c @@ -56,7 +56,7 @@ * Indexes into this table are used when generating type * tags for smobjects (if you know a tag you can get an index and conversely). */ -scm_sizet scm_numsmob; +int scm_numsmob; scm_smobfuns *scm_smobs; diff --git a/libguile/smob.h b/libguile/smob.h index 41dcec939..b218c6862 100644 --- a/libguile/smob.h +++ b/libguile/smob.h @@ -59,7 +59,7 @@ typedef struct scm_smobfuns #define SCM_SMOBNUM(x) (0x0ff & (SCM_CAR(x)>>8)) -extern scm_sizet scm_numsmob; +extern int scm_numsmob; extern scm_smobfuns *scm_smobs;