6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-07-20 10:30:03 +00:00
Code Issues Projects Releases Wiki Activity

Unix/Process.inc: Give more useful random seed to srand. Workaround for PR12743.

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@156252 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
NAKAMURA Takumi 2012-05-06 08:24:24 +00:00
parent 24cddd5c9a
commit dc736b0a3e
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/Support/Unix/Process.inc
View File

@ -298,11 +298,24 @@ const char *Process::ResetColor() {
return "\033[0m";
}
#if !defined(HAVE_ARC4RANDOM)
static unsigned GetRandomNumberSeed() {
unsigned seed = ::time(NULL); // FIXME: It might not provide unique seed.
FILE *RandomSource = ::fopen("/dev/urandom", "r");
if (RandomSource) {
::fread((void *)&seed, sizeof(seed), 1, RandomSource);
::fclose(RandomSource);
}
return seed;
}
#endif
unsigned llvm::sys::Process::GetRandomNumber() {
#if defined(HAVE_ARC4RANDOM)
return arc4random();
#else
static int x = (::srand(::time(NULL)), 0);
static int x = (::srand(GetRandomNumberSeed()), 0);
(void)x;
return ::rand();
#endif
}