6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-08-15 06:29:05 +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
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"; 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() { unsigned llvm::sys::Process::GetRandomNumber() {
#if defined(HAVE_ARC4RANDOM) #if defined(HAVE_ARC4RANDOM)
return arc4random(); return arc4random();
#else #else
static int x = (::srand(::time(NULL)), 0); static int x = (::srand(GetRandomNumberSeed()), 0);
(void)x;
return ::rand(); return ::rand();
#endif #endif
} }