fixed a bug in "random" not terminating for large numbers
This commit is contained in:
parent
858198b886
commit
e10ea87a31
|
@ -1 +1 @@
|
||||||
1859
|
1860
|
||||||
|
|
|
@ -1924,8 +1924,8 @@ ikrt_bignum_to_bytevector(ikptr x, ikpcb* pcb){
|
||||||
|
|
||||||
ikptr
|
ikptr
|
||||||
ikrt_fxrandom(ikptr x){
|
ikrt_fxrandom(ikptr x){
|
||||||
int mask = 1;
|
long int mask = 1;
|
||||||
int n = unfix(x);
|
long int n = unfix(x);
|
||||||
{
|
{
|
||||||
while(mask < n){
|
while(mask < n){
|
||||||
mask = (mask << 1) | 1;
|
mask = (mask << 1) | 1;
|
||||||
|
|
Loading…
Reference in New Issue