266 #if !defined(LUA_RAND32) && !defined(Rand64)
273 #define Rand64		unsigned long  macro
278 #define Rand64		unsigned long long  macro
283 #define Rand64		lua_Unsigned  macro
290 #if defined(Rand64)  /* { */
304 static Rand64 rotl (Rand64 x, int n) {  in rotl()
308 static Rand64 nextrand (Rand64 *state) {  in nextrand()
309   Rand64 state0 = state[0];  in nextrand()
310   Rand64 state1 = state[1];  in nextrand()
311   Rand64 state2 = state[2] ^ state0;  in nextrand()
312   Rand64 state3 = state[3] ^ state1;  in nextrand()
313   Rand64 res = rotl(state1 * 5, 7) * 9;  in nextrand()
335 #define scaleFIG	(l_mathop(0.5) / ((Rand64)1 << (FIGS - 1)))
337 static lua_Number I2d (Rand64 x) {  in I2d()
345 #define Int2I(x)	((Rand64)(x))
361 typedef struct Rand64 {  struct
364 } Rand64;  argument
382 static Rand64 packI (lu_int32 h, lu_int32 l) {  in packI()
383   Rand64 result;  in packI()
390 static Rand64 Ishl (Rand64 i, int n) {  in Ishl()
396 static void Ixor (Rand64 *i1, Rand64 i2) {  in Ixor()
402 static Rand64 Iadd (Rand64 i1, Rand64 i2) {  in Iadd()
403   Rand64 result = packI(i1.h + i2.h, i1.l + i2.l);  in Iadd()
410 static Rand64 times5 (Rand64 i) {  in times5()
415 static Rand64 times9 (Rand64 i) {  in times9()
420 static Rand64 rotl (Rand64 i, int n) {  in rotl()
427 static Rand64 rotl1 (Rand64 i, int n) {  in rotl1()
437 static Rand64 nextrand (Rand64 *state) {  in nextrand()
438   Rand64 res = times9(rotl(times5(state[1]), 7));  in nextrand()
439   Rand64 t = Ishl(state[1], 17);  in nextrand()
467 static lua_Number I2d (Rand64 x) {  in I2d()
492 static lua_Number I2d (Rand64 x) {  in I2d()
502 static lua_Unsigned I2UInt (Rand64 x) {  in I2UInt()
507 static Rand64 Int2I (lua_Unsigned n) {  in Int2I()
518   Rand64 s[4];
561   Rand64 rv = nextrand(state->s);  /* next pseudo-random value */  in math_random()
592 static void setseed (lua_State *L, Rand64 *state,  in setseed()