From f6524873c79142df8157de07ae8a959c0d0c1116 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Daniel=20Kochma=C5=84ski?= Date: Sun, 20 Sep 2015 11:57:01 +0200 Subject: [PATCH] num_random: remove dead code Removal of obsolete number generator working on fixnum. It was conditionally defined with 0 so it's a dead code. --- src/c/num_rand.d | 28 ---------------------------- 1 file changed, 28 deletions(-) diff --git a/src/c/num_rand.d b/src/c/num_rand.d index 3b9daad..33c9579 100644 --- a/src/c/num_rand.d +++ b/src/c/num_rand.d @@ -31,32 +31,6 @@ /* it isn't pulled in by fcntl.h */ #endif -#if 0 - -/* - * Crappy random number generator - */ - -cl_object -init_random_state() -{ - return (cl_object)time(0); -} - -static double -generate_double(cl_object rs) -{ - rs->random.value - = rs->random.value - + (rs->random.value<<2) - + (rs->random.value<<17) - + (rs->random.value<<27); - rs->random.value = rs->random.value & 0xffffffff; - return (double)(rs->random.value>>1) / (4294967296.0/2.0); -} - -#else - /* * Mersenne-Twister random number generator */ @@ -142,8 +116,6 @@ generate_double(cl_object state) return generate_int32(state) * (1.0 / 4294967296.0); } -#endif - static mp_limb_t generate_limb(cl_object state) { -- 2.9.0