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

(scm_srfi60_copy_bit): Should be long not int for fixnum

Browse source 
bitshift, fixes 64-bit systems setting a bit between 32 and 63.
Reported by Aaron M. Ucko, Debian bug 396119.
This commit is contained in:
Kevin Ryde 2006-12-01 19:12:46 +00:00
parent 19a39718ac
commit dcee71903f
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
srfi/srfi-60.c
View file

@ -86,7 +86,7 @@ SCM_DEFINE (scm_srfi60_copy_bit, "copy-bit", 3, 0, 0,
if (ii < SCM_LONG_BIT-1)
{
nn &= ~(1L << ii); /* zap bit at index */
nn |= (bb << ii); /* insert desired bit */
nn |= ((long) bb << ii); /* insert desired bit */
return scm_from_long (nn);
}
else