github.com/simh.simh
1
0
Fork 0
mirror of https://github.com/simh/simh.git synced 2026-01-31 22:03:35 +00:00
Code Releases Activity

SCP: Enable use of local rand() and scrand() implementation

Browse Source
This commit is contained in:
Mark Pizzolato
2019-04-03 09:43:47 -07:00
parent bb2368ab8d
commit 64fa357bf9
2 changed files with 21 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
scp.c
View File

@@ -8707,7 +8707,7 @@ for (i = 0, j = addr; i < sim_emax; i++, j = j + dptr->aincr) {
reason = SCPE_IOERR;
break;
}
sim_fread (&sim_eval[i], sz, 1, uptr->fileref);
(void)sim_fread (&sim_eval[i], sz, 1, uptr->fileref);
if ((feof (uptr->fileref)) &&
!(uptr->flags & UNIT_FIX)) {
reason = SCPE_EOF;
@@ -14534,19 +14534,32 @@ return cptr;
/*
* To avoid Coverity complaints about the use of rand() we define the function locally
* This implementation of Lehmer's minimal standard algorithm is derived
* from the integer solution provided in:
" "Communications of the ACM, October 1988, Volume 31, Number 10, page 1195"
*/
static uint32 sim_rand_seed;
static int32 sim_rand_seed = 2;
void sim_srand (unsigned int seed)
{
sim_rand_seed = (uint32)seed;
/* Keep the seed within 1..RAND_MAX */
sim_rand_seed = (int32)(seed % RAND_MAX) + 1;
}
int sim_rand ()
{
sim_rand_seed = sim_rand_seed * 214013 + 2531011;
return (sim_rand_seed >> 16) & RAND_MAX;
const int32 a = 16807;
const int32 q = 127773; /* (RAND_MAX + 1) / a */
const int32 r = 2836; /* (RAND_MAX + 1) % a */
int32 lo, hi;
hi = sim_rand_seed / q;
lo = sim_rand_seed % q;
sim_rand_seed = a * lo - r * hi;
if (sim_rand_seed < 0)
sim_rand_seed += RAND_MAX + 1;
return (sim_rand_seed - 1);
}
/*