diff options
author | Jim Blandy <jimb@red-bean.com> | 1998-09-05 16:50:33 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1998-09-05 16:50:33 +0000 |
commit | 4e6e21198734a80493fa40bfe89d1b431f538cc8 (patch) | |
tree | e3ff817dada7a5ba3b929c34fcfbf9ea86832c9b | |
parent | a1c95c454b5f7742acb19f53cfb298e64f0e69f4 (diff) | |
download | guile-4e6e21198734a80493fa40bfe89d1b431f538cc8.tar.gz |
* 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.
-rw-r--r-- | libguile/smob.c | 2 | ||||
-rw-r--r-- | 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; |