* c/mt19937/mt19937.c (mt19937_init_by_array,init_genrand): Remove unused.

 * c/mt19937/mt19937.h: Remove declarations.

Author: MLopez-Ibanez

c/mt19937/mt19937.c

@@ -15,104 +15,6 @@ void mt19937_seed(mt19937_state *state, uint32_t seed) {
   state->pos = RK_STATE_LEN;
 }
 
-/* initializes mt[RK_STATE_LEN] with a seed */
-static void init_genrand(mt19937_state *state, uint32_t s) {
-  int mti;
-  uint32_t *mt = state->key;
-
-  mt[0] = s & 0xffffffffUL;
-  for (mti = 1; mti < RK_STATE_LEN; mti++) {
-    /*
-     * See Knuth TAOCP Vol2. 3rd Ed. P.106 for multiplier.
-     * In the previous versions, MSBs of the seed affect
-     * only MSBs of the array mt[].
-     * 2002/01/09 modified by Makoto Matsumoto
-     */
-      /* This code triggers conversions between uint32_t and unsigned long,
-         which various compilers warn about. */
-#  pragma GCC diagnostic push
-#  pragma GCC diagnostic ignored "-Wconversion"
-#if defined(__clang__)
-#  pragma clang diagnostic push
-#  pragma clang diagnostic ignored "-Wimplicit-int-conversion"
-#endif
-    mt[mti] = (1812433253UL * (mt[mti - 1] ^ (mt[mti - 1] >> 30)) + mti);
-#  pragma GCC diagnostic pop
-#if defined(__clang__)
-#  pragma clang diagnostic pop
-#endif
-    /* for > 32 bit machines */
-    mt[mti] &= 0xffffffffUL;
-  }
-  state->pos = mti;
-  return;
-}
-
-/*
- * initialize by an array with array-length
- * init_key is the array for initializing keys
- * key_length is its length
- */
-void mt19937_init_by_array(mt19937_state *state, uint32_t *init_key,
-                           int key_length) {
-  /* was signed in the original code. RDH 12/16/2002 */
-  int i = 1;
-  int j = 0;
-  uint32_t *mt = state->key;
-  int k;
-
-  init_genrand(state, 19650218UL);
-  k = (RK_STATE_LEN > key_length ? RK_STATE_LEN : key_length);
-  for (; k; k--) {
-#  pragma GCC diagnostic push
-#  pragma GCC diagnostic ignored "-Wconversion"
-#if defined(__clang__)
-#  pragma clang diagnostic push
-#  pragma clang diagnostic ignored "-Wimplicit-int-conversion"
-#endif
-    /* non linear */
-    mt[i] = (mt[i] ^ ((mt[i - 1] ^ (mt[i - 1] >> 30)) * 1664525UL)) + init_key[j] + j;
-#  pragma GCC diagnostic pop
-#if defined(__clang__)
-#  pragma clang diagnostic pop
-#endif
-    /* for > 32 bit machines */
-    mt[i] &= 0xffffffffUL;
-    i++;
-    j++;
-    if (i >= RK_STATE_LEN) {
-      mt[0] = mt[RK_STATE_LEN - 1];
-      i = 1;
-    }
-    if (j >= key_length) {
-      j = 0;
-    }
-  }
-  for (k = RK_STATE_LEN - 1; k; k--) {
-      /* This code triggers conversions between uint32_t and unsigned long,
-         which various compilers warn about. */
-#  pragma GCC diagnostic push
-#  pragma GCC diagnostic ignored "-Wconversion"
-#if defined(__clang__)
-#  pragma clang diagnostic push
-#  pragma clang diagnostic ignored "-Wimplicit-int-conversion"
-#endif
-    mt[i] = (mt[i] ^ ((mt[i - 1] ^ (mt[i - 1] >> 30)) * 1566083941UL)) - i; /* non linear */
-#  pragma GCC diagnostic pop
-#if defined(__clang__)
-#  pragma clang diagnostic pop
-#endif
-    mt[i] &= 0xffffffffUL; /* for WORDSIZE > 32 machines */
-    i++;
-    if (i >= RK_STATE_LEN) {
-      mt[0] = mt[RK_STATE_LEN - 1];
-      i = 1;
-    }
-  }
-
-  mt[0] = 0x80000000UL; /* MSB is 1; assuring non-zero initial array */
-}
-
 void mt19937_gen(mt19937_state *state) {
   uint32_t y;
   int i;

c/mt19937/mt19937.h

@@ -43,9 +43,6 @@ static inline uint32_t mt19937_next(mt19937_state *state) {
   return y;
 }
 
-extern void mt19937_init_by_array(mt19937_state *state, uint32_t *init_key,
-                                  int key_length);
-
 static inline uint64_t mt19937_next64(mt19937_state *state) {
   return (uint64_t)mt19937_next(state) << 32 | mt19937_next(state);
 }