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)
{
PUSHINT(rand());
PUSHINT(random());
}
@ -4832,7 +4832,7 @@ static void ficlRandom(FICL_VM *pVM)
**************************************************************************/
static void ficlSeedRandom(FICL_VM *pVM)
{
srand(POPINT());
srandom(POPUNS());
}
#endif