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

*avoided a warning.

Browse Source
This commit is contained in:
Wang Renxin 2016-12-20 21:29:25 +08:00
parent aa5885ff45
commit 3fa77e31d7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/my_basic.c
View File

@ -6538,7 +6538,7 @@ static int _get_array_pos(mb_interpreter_t* s, _array_t* arr, int* d, int c) {
}
for(i = 0; i < c; i++) {
n = d[i];
if(n < 0 || n >= arr->dimensions[i]) {
if(n >= arr->dimensions[i]) {
result = -1;
goto _exit;