mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 20:40:29 +02:00
Code Activity

* iselect.c: Use LONG_MAX instead of ULONG_MAX for increased

Browse source 
portability.
(finalize_fd_sets): Added empty statement after last case label.
(Thanks to Nicolas Neuss.)
This commit is contained in:
Mikael Djurfeldt 1998-07-12 13:23:50 +00:00
parent e242dfd261
commit 95f44da944
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/iselect.c
View file

@ -71,15 +71,17 @@ extern void bzero (void *, size_t);
/* These macros count the number of bits in a word. */ /* These macros count the number of bits in a word. */
#define SCM_BITS_PER_LONG (8 * sizeof (unsigned long)) #define SCM_BITS_PER_LONG (8 * sizeof (unsigned long))
#if ULONG_MAX >> 16 == 0 /* Use LONG_MAX instead of ULONG_MAX here since not all systems define
ULONG_MAX */
#if LONG_MAX >> 16 == 0
#define SCM_NLONGBITS(p) (bc[((unsigned char *)(p))[0]]\ #define SCM_NLONGBITS(p) (bc[((unsigned char *)(p))[0]]\
+ bc[((unsigned char *)(p))[1]]) + bc[((unsigned char *)(p))[1]])
#elif ULONG_MAX >> 32 == 0 #elif LONG_MAX >> 32 == 0
#define SCM_NLONGBITS(p) (bc[((unsigned char *)(p))[0]]\ #define SCM_NLONGBITS(p) (bc[((unsigned char *)(p))[0]]\
+ bc[((unsigned char *)(p))[1]]\ + bc[((unsigned char *)(p))[1]]\
+ bc[((unsigned char *)(p))[2]]\ + bc[((unsigned char *)(p))[2]]\
+ bc[((unsigned char *)(p))[3]]) + bc[((unsigned char *)(p))[3]])
#elif ULONG_MAX >> 64 == 0 #elif LONG_MAX >> 64 == 0
#define SCM_NLONGBITS(p) (bc[((unsigned char *)(p))[0]]\ #define SCM_NLONGBITS(p) (bc[((unsigned char *)(p))[0]]\
+ bc[((unsigned char *)(p))[1]]\ + bc[((unsigned char *)(p))[1]]\
+ bc[((unsigned char *)(p))[2]]\ + bc[((unsigned char *)(p))[2]]\
@ -351,6 +353,7 @@ finalize_fd_sets (coop_t *t)
n_ones += SCM_NLONGBITS (&((ulongptr) t->exceptfds)[i]); n_ones += SCM_NLONGBITS (&((ulongptr) t->exceptfds)[i]);
} }
cont_except: cont_except:
;
} }
t->retval = n_ones; t->retval = n_ones;
} }