#pragma once
#include "Types.h"
struct Rand
{
uint32_t x;
uint32_t y;
uint32_t z;
uint32_t w;
Rand()
{
reseed(uint32_t(0));
}
Rand( uint32_t seed )
{
reseed(seed);
}
void reseed ( uint32_t seed )
{
x = 0x498b3bc5 ^ seed;
y = 0;
z = 0;
w = 0;
for(int i = 0; i < 10; i++) mix();
}
void reseed ( uint64_t seed )
{
x = 0x498b3bc5 ^ (uint32_t)(seed >> 0);
y = 0x5a05089a ^ (uint32_t)(seed >> 32);
z = 0;
w = 0;
for(int i = 0; i < 10; i++) mix();
}
void mix ( void )
{
uint32_t t = x ^ (x << 11);
x = y; y = z; z = w;
w = w ^ (w >> 19) ^ t ^ (t >> 8);
}
uint32_t rand_u32 ( void )
{
mix();
return x;
}
uint64_t rand_u64 ( void )
{
mix();
uint64_t a = x;
uint64_t b = y;
return (a << 32) | b;
}
#ifdef __SIZEOF_INT128__
__uint128_t rand_u128 ( void )
{
__uint128_t a = rand_u64();
return (a << 64) | rand_u64();
}
#endif
void rand_p ( void * blob, int bytes )
{
uint32_t * blocks;
int i;
#ifdef HAVE_ALIGNED_ACCESS_REQUIRED
if ((i = (uintptr_t)blob % 4)) {
uint8_t *pre = reinterpret_cast<uint8_t*>(blob);
uint32_t u = rand_u32();
switch (i) {
case 1:
*pre++ = u & 0xff; u >>= 8;
case 2:
*pre++ = u & 0xff; u >>= 8;
case 3:
*pre++ = u & 0xff;
default:
break;
}
blocks = reinterpret_cast<uint32_t*>(pre);
}
else
#endif
blocks = reinterpret_cast<uint32_t*>(blob);
while(bytes >= 4)
{
*blocks = rand_u32();
blocks++;
bytes -= 4;
}
uint8_t * tail = reinterpret_cast<uint8_t*>(blocks);
for (i = 0; i < bytes; i++)
{
tail[i] = (uint8_t)rand_u32();
}
}
};
extern Rand g_rand1;
inline uint32_t rand_u32 ( void ) { return g_rand1.rand_u32(); }
inline uint64_t rand_u64 ( void ) { return g_rand1.rand_u64(); }
#ifdef __SIZEOF_INT128__
inline __uint128_t rand_u128 ( void ) { return g_rand1.rand_u128(); }
#endif
inline void rand_p ( void * blob, int bytes )
{
uint32_t * blocks;
int i;
if ((i = (uintptr_t)blob % 4)) {
uint8_t *pre = reinterpret_cast<uint8_t*>(blob);
uint32_t u = rand_u32();
switch (i) {
case 1:
*pre++ = u & 0xff; u >>= 8;
case 2:
*pre++ = u & 0xff; u >>= 8;
case 3:
*pre++ = u & 0xff;
default:
break;
}
blocks = reinterpret_cast<uint32_t*>(pre);
}
else
blocks = reinterpret_cast<uint32_t*>(blob);
while(bytes >= 4)
{
*blocks++ = rand_u32();
bytes -= 4;
}
uint8_t * tail = (uint8_t*)blocks;
for (i = 0; i < bytes; i++)
{
tail[i] = (uint8_t)rand_u32();
}
}