mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

scm_t_uint64 cast in scm_i_uniform32, which was apparently Mikael's

Browse source 
intention (as in the HEAD).
This commit is contained in:
Kevin Ryde 2006-04-17 00:25:52 +00:00
parent d958b13ed0
commit 51c28a2047
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/random.c
View file

@ -80,7 +80,7 @@ scm_t_rng scm_the_rng;
unsigned long unsigned long
scm_i_uniform32 (scm_t_i_rstate *state) scm_i_uniform32 (scm_t_i_rstate *state)
{ {
scm_t_uint64 x = (scm_t_int64) A * state->w + state->c; scm_t_uint64 x = (scm_t_uint64) A * state->w + state->c;
scm_t_uint32 w = x & 0xffffffffUL; scm_t_uint32 w = x & 0xffffffffUL;
state->w = w; state->w = w;
state->c = x >> 32L; state->c = x >> 32L;