265 #if !defined(LUA_RAND32) && !defined(Rand64)
272 #define Rand64		unsigned long  macro
277 #define Rand64		unsigned long long  macro
282 #define Rand64		lua_Unsigned  macro
289 #if defined(Rand64)  /* { */
303 static Rand64 rotl (Rand64 x, int n) {  in rotl()
307 static Rand64 nextrand (Rand64 *state) {  in nextrand()
308   Rand64 state0 = state[0];  in nextrand()
309   Rand64 state1 = state[1];  in nextrand()
310   Rand64 state2 = state[2] ^ state0;  in nextrand()
311   Rand64 state3 = state[3] ^ state1;  in nextrand()
312   Rand64 res = rotl(state1 * 5, 7) * 9;  in nextrand()
334 #define scaleFIG	(l_mathop(0.5) / ((Rand64)1 << (FIGS - 1)))
336 static lua_Number I2d (Rand64 x) {  in I2d()
344 #define Int2I(x)	((Rand64)(x))
360 typedef struct Rand64 {  struct
363 } Rand64;  argument
381 static Rand64 packI (lu_int32 h, lu_int32 l) {  in packI()
382   Rand64 result;  in packI()
389 static Rand64 Ishl (Rand64 i, int n) {  in Ishl()
395 static void Ixor (Rand64 *i1, Rand64 i2) {  in Ixor()
401 static Rand64 Iadd (Rand64 i1, Rand64 i2) {  in Iadd()
402   Rand64 result = packI(i1.h + i2.h, i1.l + i2.l);  in Iadd()
409 static Rand64 times5 (Rand64 i) {  in times5()
414 static Rand64 times9 (Rand64 i) {  in times9()
419 static Rand64 rotl (Rand64 i, int n) {  in rotl()
426 static Rand64 rotl1 (Rand64 i, int n) {  in rotl1()
436 static Rand64 nextrand (Rand64 *state) {  in nextrand()
437   Rand64 res = times9(rotl(times5(state[1]), 7));  in nextrand()
438   Rand64 t = Ishl(state[1], 17);  in nextrand()
466 static lua_Number I2d (Rand64 x) {  in I2d()
491 static lua_Number I2d (Rand64 x) {  in I2d()
501 static lua_Unsigned I2UInt (Rand64 x) {  in I2UInt()
506 static Rand64 Int2I (lua_Unsigned n) {  in Int2I()
517   Rand64 s[4];
560   Rand64 rv = nextrand(state->s);  /* next pseudo-random value */  in math_random()
591 static void setseed (lua_State *L, Rand64 *state,  in setseed()