mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

* smob.c (scm_numsmob): Make this an int, not an scm_sizet, to

Browse source 
avoid signed/unsigned comparisons.
* smob.h (scm_numsmob): Change extern declaration to match.
This commit is contained in:
Jim Blandy 1998-09-05 16:50:33 +00:00
parent a1c95c454b
commit 4e6e211987
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/smob.c
View file

@ -56,7 +56,7 @@
* Indexes into this table are used when generating type * Indexes into this table are used when generating type
* tags for smobjects (if you know a tag you can get an index and conversely). * 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; scm_smobfuns *scm_smobs;

2
libguile/smob.h
View file

@ -59,7 +59,7 @@ typedef struct scm_smobfuns
#define SCM_SMOBNUM(x) (0x0ff & (SCM_CAR(x)>>8)) #define SCM_SMOBNUM(x) (0x0ff & (SCM_CAR(x)>>8))
extern scm_sizet scm_numsmob; extern int scm_numsmob;
extern scm_smobfuns *scm_smobs; extern scm_smobfuns *scm_smobs;