Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.2
guile1
guile-64bit.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File guile-64bit.patch of Package guile1
Index: libguile/hash.c =================================================================== --- libguile/hash.c.orig 2010-12-13 19:24:40.000000000 +0200 +++ libguile/hash.c 2011-09-27 19:28:16.762890910 +0200 @@ -169,7 +169,7 @@ scm_hasher(SCM obj, unsigned long n, siz unsigned long scm_ihashq (SCM obj, unsigned long n) { - return (SCM_UNPACK (obj) >> 1) % n; + return ((unsigned long) SCM_UNPACK (obj) >> 1) % n; } @@ -205,7 +205,7 @@ scm_ihashv (SCM obj, unsigned long n) if (SCM_NUMP(obj)) return (unsigned long) scm_hasher(obj, n, 10); else - return SCM_UNPACK (obj) % n; + return (unsigned long) SCM_UNPACK (obj) % n; } Index: libguile/struct.c =================================================================== --- libguile/struct.c.orig 2010-12-13 19:24:40.000000000 +0200 +++ libguile/struct.c 2011-09-27 19:28:16.769890717 +0200 @@ -825,7 +825,7 @@ scm_struct_ihashq (SCM obj, unsigned lon { /* The length of the hash table should be a relative prime it's not necessary to shift down the address. */ - return SCM_UNPACK (obj) % n; + return (unsigned long) SCM_UNPACK (obj) % n; } SCM
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor