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

* random.c: #include gmp.h.

Browse source 
(scm_c_random_bignum): normalize result on return.
This commit is contained in:
Rob Browning 2003-04-07 01:51:10 +00:00
parent 5384438984
commit 8db9cc6cf3
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/random.c
View file

@ -24,6 +24,7 @@
#include "libguile/_scm.h" #include "libguile/_scm.h"
#include <gmp.h>
#include <stdio.h> #include <stdio.h>
#include <math.h> #include <math.h>
#include <string.h> #include <string.h>
@ -262,9 +263,6 @@ scm_c_random_bignum (scm_t_rstate *state, SCM m)
(unsigned long *) scm_gc_calloc (num_chunks * sizeof (unsigned long), (unsigned long *) scm_gc_calloc (num_chunks * sizeof (unsigned long),
"random bignum chunks"); "random bignum chunks");
/* FIXME: what about chance that bignums end up with zeroes at the
front? -- do we need to normalize? */
do do
{ {
unsigned long *current_chunk = random_chunks + (num_chunks - 1); unsigned long *current_chunk = random_chunks + (num_chunks - 1);
@ -303,7 +301,7 @@ scm_c_random_bignum (scm_t_rstate *state, SCM m)
scm_gc_free (random_chunks, scm_gc_free (random_chunks,
num_chunks * sizeof (unsigned long), num_chunks * sizeof (unsigned long),
"random bignum chunks"); "random bignum chunks");
return result; return scm_i_normbig (result);
} }
/* /*