quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*fixed a random generation bug.

Browse Source
This commit is contained in:
Wang Renxin 2020-11-06 19:48:57 +08:00
parent b55f50e4e5
commit e7a6307b81
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/my_basic.c
View File

@ -17338,11 +17338,11 @@ static int _std_rnd(mb_interpreter_t* s, void** l) {
mb_check(mb_attempt_close_bracket(s, l)); mb_check(mb_attempt_close_bracket(s, l));
if(lw >= hg) { if(lw >= hg || hg > RAND_MAX) {
_handle_error_on_obj(s, SE_RN_INDEX_OUT_OF_BOUND, s->source_file, DON2(l), MB_FUNC_ERR, _exit, result); _handle_error_on_obj(s, SE_RN_INDEX_OUT_OF_BOUND, s->source_file, DON2(l), MB_FUNC_ERR, _exit, result);
} }
rnd = (real_t)rand() / RAND_MAX * (hg - lw + (real_t)0.99999f) + lw; /* [LOW, HIGH] */ rnd = (real_t)(rand() % (hg - lw + 1) + lw); /* [LOW, HIGH] */
mb_check(mb_push_int(s, l, (int_t)rnd)); mb_check(mb_push_int(s, l, (int_t)rnd));
} else { } else {