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

*fixed a mistake in generic array

Browse Source
This commit is contained in:
Wang Renxin 2015-04-16 10:06:57 +08:00
parent 78fe0e0036
commit a4c2a73bc4
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

@ -2434,7 +2434,7 @@ bool_t _get_array_elem(mb_interpreter_t* s, _array_t* arr, unsigned int index, m
if(arr->types[index] == _DT_REAL) { if(arr->types[index] == _DT_REAL) {
val->float_point = *((real_t*)rawptr); val->float_point = *((real_t*)rawptr);
*type = _DT_REAL; *type = _DT_REAL;
} else if(arr->types[index] == _DT_REAL) { } else if(arr->types[index] == _DT_INT) {
val->integer = *((int_t*)rawptr); val->integer = *((int_t*)rawptr);
*type = _DT_INT; *type = _DT_INT;
} else if(arr->types[index] == _DT_USERTYPE) { } else if(arr->types[index] == _DT_USERTYPE) {