From: Daniel Kochmański Date: Mon, 21 Sep 2015 08:30:07 +0000 (+0200) Subject: random: add comment for 64 rng X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=3e3423bce40b586485d6f2300add7520755e8e08;p=ecl.git random: add comment for 64 rng Signed-off-by: Daniel Kochmański --- diff --git a/src/c/num_rand.d b/src/c/num_rand.d index ac5eb79..9c53cac 100644 --- a/src/c/num_rand.d +++ b/src/c/num_rand.d @@ -211,6 +211,9 @@ ecl_make_random_state(cl_object rs) z->random.value = cl_copy_seq(rs->random.value); break; case t_fixnum: + /* XXX: If we'll decide to use 64-bit algorithm for + appropriate platforms then this will be replaced + with ecl_to_ulong_long from number.d*/ z->random.value = init_genrand (ecl_to_uint32_t(rs)); break;