ficl: Replace rand(3) with random(3).

While the later is a better random generator than the former, the main
reason of the change is that random() has a better chance to work with
libstand(3).

At this time we don't include random number generators in bootforth
so this has no effect.
This commit is contained in:
Pedro F. Giffuni 2016-02-08 19:45:55 +00:00
parent 1e97830083
commit 9868276d3b

View File

@ -4822,7 +4822,7 @@ WORDKIND ficlWordClassify(FICL_WORD *pFW)
**************************************************************************/ **************************************************************************/
static void ficlRandom(FICL_VM *pVM) static void ficlRandom(FICL_VM *pVM)
{ {
PUSHINT(rand()); PUSHINT(random());
} }
@ -4832,7 +4832,7 @@ static void ficlRandom(FICL_VM *pVM)
**************************************************************************/ **************************************************************************/
static void ficlSeedRandom(FICL_VM *pVM) static void ficlSeedRandom(FICL_VM *pVM)
{ {
srand(POPINT()); srandom(POPUNS());
} }
#endif #endif