* 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.

diff --git a/libguile/smob.c b/libguile/smob.c
index a498c48..8c54b3e 100644 (file)
--- 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 41dcec9..b218c68 100644 (file)
--- 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;
 
 \f