mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

* iselect.c (SCM_NLONGBITS): Add workaround for the Sun 4.2

Browse source 
compiler.
This commit is contained in:
Mikael Djurfeldt 2000-06-12 21:25:10 +00:00
parent dce41066d3
commit c507087791
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/iselect.c
View file

@ -69,7 +69,7 @@ extern void bzero (void *, size_t);
#if LONG_MAX >> 16 == 0 #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 LONG_MAX >> 32 == 0 #elif LONG_MAX >> 32 == 0 || LONG_MAX == 2147483647L /* bug in Sun CC 4.2 */
#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]]\
@ -83,6 +83,8 @@ extern void bzero (void *, size_t);
+ bc[((unsigned char *)(p))[5]]\ + bc[((unsigned char *)(p))[5]]\
+ bc[((unsigned char *)(p))[6]]\ + bc[((unsigned char *)(p))[6]]\
+ bc[((unsigned char *)(p))[7]]) + bc[((unsigned char *)(p))[7]])
#else
#error Could not determine suitable definition for SCM_NLONGBITS
#endif #endif
#ifdef HAVE_BZERO #ifdef HAVE_BZERO