mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 16:20:39 +02:00
Code Activity

* numbers.c (PTRDIFF_MIN): use SCM_CHAR_BIT.

Browse source
This commit is contained in:
Rob Browning 2003-04-16 19:44:02 +00:00
parent 43151146c2
commit b4fb7de868
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/numbers.c
View file

@ -4074,7 +4074,8 @@ SCM_DEFINE (scm_inexact_to_exact, "inexact->exact", 1, 0, 0,
#endif #endif
#ifndef PTRDIFF_MIN #ifndef PTRDIFF_MIN
#define PTRDIFF_MIN \ #define PTRDIFF_MIN \
((scm_t_ptrdiff) ((scm_t_ptrdiff) 1 << (sizeof (scm_t_ptrdiff) * 8 - 1))) ((scm_t_ptrdiff) ((scm_t_ptrdiff) 1 \
<< ((sizeof (scm_t_ptrdiff) * SCM_CHAR_BIT) - 1)))
#endif #endif
#ifndef PTRDIFF_MAX #ifndef PTRDIFF_MAX
#define PTRDIFF_MAX (~ PTRDIFF_MIN) #define PTRDIFF_MAX (~ PTRDIFF_MIN)